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ABSTRACT 


The function of the KMC11 diagnostics is to verify that the 
option operates according to specifications. The diagnostics 
verfiy that there are no malfunctions and the all operations 
of the KMC11 are correct in its environment. 


Parameters must be set up to alert the diagnostics to _ the 
KMC11_ configuration. These parameters are contained in the 
STATUS TABLE and are generated in two ways: 1) Manual 
Input =~ the operator answers questions. 2) Autosizing - the 
program determines the parameters automatically. 


CZDMG tests the KMC11 micro-processor Free gore - tests are 
performed. A line unit (M8201 or M8202) must be installed. 
CZDMG can be used as a heat test diagnostic by manufacturing. 


Currently there are five off Line diagnostics that are to be 
run in sequence to insure that if an error should occur it 
will be detected at an early stage. 


NOTE: Additional diagnostics may be added in the future. 
The five diagnostics are: 


1. OZKCA KMC-11 CPU Micro~Diagnostics 

2. DZKCC Basic W/R and Micro-Processor Tests 

5. DZKCD KMC--11 Low speed jump and memory tests 
4. DZKCE DDCMP mode line unit tests 

>. DZKCF Bitstuff mode Line unit tests 


REQUIREMENTS 

EQUIPMENT 

po PDP11 roe ON (except an LSI-11) with minimum 8k memory 
ASR 33 (or equilivalent) 


KMC or 
M8201 or M8202 Line unit 
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STORAGE 


Program will use all 8K of memory except where ABL and 
BOOTSTRAP LOADER reside. Locations 1500 thru 1640; contain 
the STATUS TABLE’’ information which is generated at start of 
otagrany 58 by manual input (questions) or automatically 
(auto-sizing). This area is an overlay area and should not be 
altered by the operator. 


LOADING PROCEEDURE 
ME THOD 


prepress are in absolute format and are loaded using the 
NBSOLUT LOADER. NOTE: if the diagnostics are on a media such 
as DISK ,MAGTAPE ,DECTAPE, or CASSETTE; follow instructions 
nt the monitor which has been provided on that specific 
media. 


ABSOLUTE LOADER starting address *500 
MEMORY * SIZE 


MW NN 


— 

oO 

r 
—— ANIL 
NN™N 


Place address of ABS loader into switch register. 
(also place "HALT" SW up) 


Depress ‘LOAD ADDRESS’ key on console and release. 


Depress ‘START KEY’ on console and release (program should now 
be loading into CPU) 
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STARTING PROCEEDURE 


a. Set switch register to 000200 

b. Depress ‘LOAD ADDRESS’ key and relea 

c. Set SWR to zero for ‘AUTO SIZING’ or *SuR bitO=1 for manual 
input (questions) or SWR bit7=1 to use existing parameters 
Se up oY aprevious start or a previously run DMC11 

a 

d. on gt "START KEY’ and release. The program will type 
Maindec Name and progres name (if this was the first start 
up of the program) and also the following: 


MAP OF DMC11 STATUS 


PC CSR STATI STAT2 ~~ STATS 


001500 160010 145310 177777 000000 
001510 160020 145520 177777 000000 


The program will tee R3 and proceed to run the diagnostic. 


The above jis only ample. This would indicate the status 
table starting at hy “1500 wok ~ program. In this example 
the table contains the informa and status of two DMC11°S. 


THE STATUS TABLE MUST BE VERIFIED B BY THE USER IF AUTO SIZING 
af DONE. For information of status table see section 8.4 for 
elp. 


If the diagnostic was started with SWO0=1 indicating manual 
parameter input then the _ following shows an example of the 
questions asked and some example answers: 


HOW MANY KMC11°S TO BE TESTED?1 


01 
ee ADDRESS?160010 


$7310 
BR PRIORITY LEVEL? (4,5,6,7)25 
DOES MICRO=PROCESSOR HAVE CRAM? (Y OR N)N 
WHICH LINE UNIT? IF NONE TYPE ‘N'", IF MB201 TYPE ‘"I"', IF 


IS THE LOOP BACK CONNECTOR ON?Y 
SWITCH PAC#1 (DDCMP LINEA) ?377 
SWITCH PACH2 (BM873 BOOT ADD) 7377 


forties Sos the Loa the status map is printed out as 
descri above, okie Rca og? bag in the map reflects the 
answers to ~ If the diagnostic was started with 
SWOO0=0 and co. (AUTO-SI1ZING) then no Stions are asked 
and wae age re is printed out. f AUTO-SIZING is 
used t status information must.be verified to be correct 
(match the hardware). if it does not match the hardware the 
pn eg must be restarted with SW00=1 and the questions 
answer 
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CONTROL SWITCH SETTINGS 


SW 15 Set: 


SW 06 Set: 


SW 05 Set: 
SW 04 Set: 
SW 03 Set: 
SW O02 Set: 
SW 01 Set: 
SW OO Set: 


Halt on error 

Loop on current test 

Inhibit error print out 

Inhibit type out/abell on error. 

Inhibit iterations. (quick pass) 

Escape to next test on error 

Loop with current data | 

Catch error and loop on it 

Use previous status table. 
Halt in ROMCLK routine before clocking 
micro~processor 

Reserved 

Reserved 

Reselect KMC11"s desired active 

Lock on selected test 

Restart program at selected test 


Build new status table from questions. (If Sw07=0 


and SWO0O=0 a new status table is built by 
auto-s1z1ng) 


Switch 06 and 08-15 are dynamic and can be changed as _ needed 
while the diagnostic is running. Switches 00-05 and switch 07 
are static, and are used only on starting or restarting the 


diagnostic. 
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4.1.2 SWITCH REGISTER OPTIONS (at start up) 


SW 01 


SW O02 


SW 03 


METHOD : 


RESTART PROGRAM AT SELECTED TEST. It is strongly 
suggested that at least one pass has been made before 
trying to select a test, the reason being is that the 
program has to clear areas. and set up parameters. 
When this switch is used the diagnostic will ask TEST 
NO.? Answer by typing the number of the test desired 
and carrige return to begin execution at the selected 
test. 


LOCK ON SELECTED TEST. This switch when used with 
S will cause the program to constantly Loop on the 
selected test. Hitting any key on the console will 
let it advance to the next test and loop until a key 
is hit again. If SWO2=0 when SWO1 is used. The 
program will begin at the selected test and continue 
normal operations. 


RESELECT KMC11°S DESIRED ACTIVE. Please note that a 
message iS typed out for setting the switch register 
equal to KMC11"s active. this means if the system has 
four KMC11s; bits 00.01,02.05 will be set in loc 
"DMACTV’ from the switch register. Using this 
switch(SWOO) alters that location;therefore if four 
DMC11s are in the system ***DO NOT*** set switchs 
greater than SW 035 in the up position. this would be 
a fatal error. do not select more active DMC11s_ than 
there is information on in the status table. 


A: Load address 200 
o gtart eT 00=1 
: rogram wi type message 

D: Set a switch for each KMC desired active. 
EXAMPLE: If you have 4 DMC’s but only want to 
run the first and the last set SWR bits 0 and 
5 = 1. PRESS CONTINUE : 

E: Number (IF VALID) will be in data lights 
(excluding 11/05) 

z set with any other switch settings desired. 


PRESS CONTINUE. 
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DYNAMIC SWITCHES 
ERROR SWITCHES 


if SW 12 Delete print out/bell on error. 

a SW 153 Delete error printout. 

a SW 15 Halt on the error. 

4. SW 08 Goto beginning of the test(on error). 
.¥ SW 10 Goto next test(on error). 


SCOPE SWITCHES 


1. Sw06 Halt in ROMCLK_ routine before clocking 
micro=processor instruction. This allows the 
or to scope a micro-processor instruction In 
tne static state before it is clocked. Hit 
continue to resume running. 

2. SwO09 (if enabled by *SCOP1") on an error; If an ‘*' is 
printed in front of the test no. (ex. *TEST NO. 
10 ) SWO9 is incorporated in that test and 
therefore SWO9 is usually the best switch for the 
SC Loop (SW14=0, SW10=0, SWO9=1, SwO08=0). If 
S is mot enabeled; and there is a HARD error 
(constant); SWO8 is best. (SW14=1,0, swi0=0, 
SWO9=0, SWO8=1). for intermittemt errors: SW14=1 
will loop on test reguardless of error or not 
error. (SW14=1, SW10=0, SWO9=0, SW08=1,0) 

3. SW Inhibit interations. 

4. SW14 Loop on current test. 


STARTING ADDRESS 


Starting address is at 000200 there are no other starting 
addresses for the KMC11 diagnostics. (See Section 4.0) 


NOTE: If address 000042 is non-zero the program assumes it 
is under ACT11 or XXDP control and will act 
—eoeny after all available KMC11"s are tested the 
program will return to ‘XXDP’ or ‘ACT-11'. 


OPERATING PROCEDURE 
When program is initially started messages as described in 


section 4.0 will be printed, and program will begin running 
the diagnostic 
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PROGRAM AND/OR OPERATOR ACTION 
The typical approach should be 


a Halt on error (via SW 15=1) when ever an error occurs. 
° Clear SW 15. 

LB Set SW 14: (loop on this test) 
: Set SW 13: (inhibit error print out) 


The TEST NUMBER and PC will be typed out and possibily an 
error message (this depends on the test) to give the operator 
an idea as to the source of the problem. If it is necessar 
to know more information Comcorasne toe error report; LOOK I 
THE LISTING for that TEST NUMBER which was typed out and_ then 
NOTE THE PC of thE ERROR REPORT this way the EXACT FUNCTION of 
the test CAN BE DETERMINED. 


ERRORS 


As described previously there will always be a TEST NUMBER and 
PC Eyped out at the time of an error (providing SW 13=0 and Sw 
12=0). in most cases additional information will be supplied 
he the the error message to give the operator an indication of 
tne error. 


ERROR RECOVERY 


If for some reason the KMC11 should ‘HANG THE BUS' (gain 
control of bus so that console manual functions are inhibited) 
an init or power down/up is necessary for operator to_ regain 
control of cpu. If this should happen; Look in location 
"TSTNO’ (address 1226) for the r of. the test that was 
running at the time of the catastrophic error. In this way 
the operator will have an idea as to what the DMC11 was doing 
at the time of the error. 


RESTRICTIONS 
STARTING RESTRICTIONS 


See section 4. (PLEASE) __ 

Status table should be verified reguardless of how program was 
Started. Also it is important to use this Listing along with 
the information printed on the TTY to completly isolate 


problems. 
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OPERATING RESTRICTIONS 


The first time a KMC11 diagnostic is loaded into core and_ run 
the STATUS TABLE must be set up. This is done by manual input 
(SWOO=1) or by meet 2g (SWOO=0 and SWO7=0). #$=*Thereafter 
however the status table need not be setup by subsequent 
restarts or even loading the next DMC diagnostic because the 
STATUS TABLE is overlayed. The current parameters in the 
STATUS TABLE are used when SW07=1 on start up. 


HARDWARE CONFIGURATION RESTRICTIONS 
KMC (M8204)—- Jumper W1 must be in. 


LINE UNIT(M8201)— Jumpers W1, W2, and W4 must be IN. Jumpers 
A WS must be OUT. SW8 of £26 must be in the ON 


LINE UNIT (M8202)- Jumper W1 must be in. SW8 of E26 must be 
in the OFF position. 


MISCELLANEOUS 
EXECUTION TIME 


ALL KMC11 device diagnostics will give an "END PASS’ message 
ee no errors and swi2=0) within 4 mins. This is 
assuming SW11=1 (DELETE ITERATIONS) is set to give the fastest 
possible execution. The actual execution time depends greatly 
on = PDP11 CPU configuration and the amount of memory in the 
system. 


PASS COMPLETE 


NOTE: EVERY time the program is started; the tests will run 
as_ if SwWil (delete iterations) was up (=1). This is to 
‘VERIFY NO HARD ERRORS’ as soon as possibie. Therefore the 
first pass EACH TIME PROGRAM IS STARTED- will be a ‘QUICK 
PASS* until all DMC11"s in system are tested. When the 
diagnostic has completed a pass the following is an example of 
the print out to be expected. 


ENC PASS DZDMG CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


NOTE: The pass count and error counts are cummnulitive for 
each KMC11 that is running, and are set to zero only 
when the diagnostic is started. Therefore after an 
overnight run for example, the total passes and errors 
for each DMC11 since the Seeest te was Started are 
reflected in PASSES: and ERRORS:. 
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KEY LOCATIONS 
RETURN (1214) 


NEXT (1216) 


TSTNO (1226) 


RUN (1316) 


DMCROO-DMCR17 
DMS TOO=DMST17 
(1500) -(1640) 


DMACTV (1306) 


DMCSR (1404) 
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Contains the address where program will return 
when iteration count is reached or if loop on 
test is asserted. 


Contains the address of the next test to be 
pe formed. 


Contains the number of the test now being 
pe formed. 


The bit in *RUN*® always points to the KMC11 
currentl bein tested. EXAMPLE: (RUN) 
1302/0000000001 Means that KMC11 no.06 
1S the KMC11 now running. 


These locations contain the information needed 
to test up to 16 (decimal) KMC11s poe aguas BS 
they contain the  CSR,VECTOR a STATUS 
concerning the configuration of each KMC11. 


Each bit set in this location indicates that 
the associated KMC11 will be tested in turn. 
EXAMPLE: (DMACTV) 1276/0000000000011111 means 
that KMC11 no. 00,01,02.03,04 will be tested. 
EXAMPLE: (DMACTV) 1276/0000000000010001 Means 
that DMC11 no. 00,04 will be tested. 


re the CSR of the current KMC11 under 
est. 


"STATUS TABLE’ (1500-1640) 


The table is filled by AUTO SIZING or by the manual parameter 
input (questions) as described previously. Also if desired by 
user; the locations may be altered by hand (toggled in) to 
suit the specific configuration. 


The example status map shown below contains information § for 


two DMC11°'S. 


the table can contain up to 16 DMC11'S. 


Following the map is a description of the bits for each map 


entry 


PC 


MAP OF KMC11 STATUS 


CSR STATI STAT2 ~~ STATS 


001500 160010 145310 177777 000000 
001510 160020 016320 000000 000000 
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Each map entry contains 4 words which contain the status 
information for 1 KMC11. The PC shows where in core memory 
the first of the 4 words is. In the example above the first 
KMC'S status is in locations, 1500 bes eee and 1506. The 
second KMC status is located at 1510, 514 and 1516. 
The information contained in each 4 i entry is defined as 


follows: 
CSR: Contains KMC11 CSR address 


STAT1: BITS 00-08 IS KMC11 VECTOR ADDRESS 
IT1 MICRO-PROCESSOR CRAM 
CRO-PROC 


5 
5 
714 
114= 





sited 





IS AN M8201 
: AN M8202 
1 BR PRIORITY LEVEL 


STAT2: LOW BYTE IS SWITL' PACH1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PACAH2 (BM873 BOOT ADD) 


T1 
1 
Lb 
IT13= 
7 
S 


STATS: 
BIT1=0 KMC11-AR (LOW SPEED) 
BIT1=1 KMC11—-AL (HIGH SPEED) 
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METHOD OF AUTO SIZING 
FINDING "HE CONTROL STATUS REGISTER. 


The auto-sizing routine finds a KMC11 as follows: It starts 
at address 1 and tests_all address in increments of 10 up 
to and including address 167760. If the address does not time 
out, the following is done, the first CROM address is written 
to a 125252 then it is read back. If it contains a -1 or 
125 or a 626 or 16520 a DMC11 or KMC11 has been found, if 
not, the address is updated by 10 and the search continues. A 
-1 indicates a DMC11 with no CROM, a 125252 indicates a KMC11 
a CRAM, a 626 indicates a DMC11~AL and a 16520 indicates a 











C11-AR. Further tests are performed at this point to 
determine which line unit, if any, is installed, if a 
ck connector is ppetes ae and various switch sotein S 


on the Line un 
VERIFIED BY THE 
HE RESTARTED AND 


AGREE WITH T 
RED. ALl DMC11°s in the ate 
will be found by the auto-sizer. If it does not find a C11 


the diagnostic must be restarted and the questions answered. 
FINDING THE VECTOR AND BR LEVEL 


The vector area (address 300-776) is filled with the 
instruction IOT and °.+2" (next address). The processor 
status is started at 7 and the DMC is programmed to interrupt. 
The PS is lowered by 1 until the DMC interrupts. a delay is 
and if no interupt occures at PS level 3 (because of a 
2 300 at BR level 
em ld be fixed in the diagnostic. Once the 

problem is fixed; the p -be_re-setup again 
correct vector. If an interupt occured; the add 
the DMC11_ interupted to is picked up and reported as the 
vector. NOTE: if the vector reported is not the vector set 
up by you; there is a problem and AUTO SIZING should not be 










5 and the probl 








SOFTWARE SWITCH REGISTER 


If the diagnostic is run on an 11/04 or other CPU without a 
Switch register then a software switch esse is used to 
allow user the same switch options as described previously. 
If the hardware switch register does not exist or if one does 

_ it contains all ones (177777) this software switch 
register is used. 


Control: 


To obtain control at any allowable time during execution of 
the diagnostic the operator types a CTRL &G on the console 
terminal keyboard. As soon as the CIRL G is recognized, by 
the diagnostic, the following message will be displayed: 


: _to get . 
ress to catch 
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SWR=XXXKXX NEW? 


Where XXXXXX is the current contents of the software switch 
register in octal. The software control routine will then 
await operator action. At which time the operator is required 
to type one or_ more of the legal characters: 1) 0 - 7, 2) 
Line feed(<LF>), 3) carriage return(<CR>), or 4) control-U 
(CTRL U). No check is made for legality. If the input 
character is not a <LF>, <CR>, or CTRL U it is assumed to be 
an octal digit. 


To change the contents of the SSR the ope-ator simply types 
the mew desired value in octal - leading zeros need not be 
typed. And terminates the input ap with a <CR> or <LF> 
ing on the program action desired as described below. 

value will be truncated to the last 6 digits typed. 
least one digit must be typed on any tg input string 
prior to the terminator before a change to the SSR will occur. 





When the input string is terminated with a <CR> the diagnostic 
will continue execution from the point at which it was 
interrupted. If a <CR> is the only thing typed the program 
will continue without changing the SSR. The <LF> differs from 
— — J restarting the program as if it were restarted at 
address ; 


If a CTRL U is typea at any point in the input string prior to 
the terminator the input value will be disregarded and the 
prompt displayed (SWR = XXXXXX NEW?). 


To set the SSR for the starting switches, first load the 
diagnostic, then hit CTRL G, then start the diagnostic. 
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> $SCOPE IS USED TO HANDLE SCOPE LOOPS 
“ARGUMENT : 


=1) 


2) 


3) 


4) 


5) 


“NOTE : 


NUM ---- 


INSTR -- 


NOLOOP - 


INSTR2 - 


TABLE - 


IF NON-BLANK DESIRED NUMBER OF ITERATIONS 
IF BLANK 2000. ITERATIONS WILL BE MADE 


IF NON-BLANK WILL BE THE FIRST INSTRUCTION OF 
THE SCOPE ROUTINE 
Sates OF USE: 


<<MOV R1,SAVR1 ;SAVE R1>> 
2) <<MOV = R1,SAVR1>,<MOV Ro. SAVR2>> 
3) AS A MACRO I.E. <<PUSH <RO, R1,R2,R3,R4,R5>>> 


IF BLANK THE FIRST PASS THROUGH THE PROGRAM WILL 
INHIBIT ITERATIONS. 
IF NON-BLANK ITERATIONS WILL OCCUR ON THE FIRST PASS. 


IF NON-BLANK WILL REPLACE THE LAST one oe tae (RTI). 
REFER TO ARGUMENT 2 (INSTR) FOR EXAMPLE OF 
REMEMBER YOU NEED AN RTI (OR RTS) FOR EXITING THE ROUTINE. 


IF THIS ARGUMENT IS IDENTICAL TO THE WORD ‘‘SWO8TBL"’ 

AND THE SWITCH 8 (SWO8) SCOPE OPTION IS TO BE USED 

A DISPATCH TABLE WILL BE CREATED. IF SWO8 IS ON A ‘"' 
THE LOWER BYTE OF THE SWITCH REGISTER WILL BE USED TO 
INDEX INTO THE DISPATCH TABLE AND SELECT THE STARTING 
ADDRESS OF THE SPECIFIED TEST. THE TABLE IS OF THE FORM: 


S$SWO8TBL: 
.WORD  TST1+42 
“WORD  TST2+2 
.WORD TSTN+2 


THIS ROUTINE IS CONDITIONALLY ASSEMBLE BY $SWR 
FOR SW14,SW11,SWO9,$SW08 
:SW1 LOOP ON TEST 


4=1 


TES 
:SW11=1 INHIBIT ITERATIONS 
:SWO9=1 LOOP ON ERROR 

;SWOB=1 LOOP ON TEST IN SW<7:0> 


, 
{EAE KKEKERKEKEKKEKKEREKKEKKEKKEKKKEKEKEEEEKCKEEKKEKKEEREKER 
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001200 


000011 
000012 
000015 
000200 
177776 
177774 


177570 


000000 
000001 


000002 
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~TITLE AC-E107A-MC 
s*COPYRIGHT (C) 1978 
>*DIGITAL EQUIPMENT CORP. 
¢ SMAYNARD . MASS. 01754 


: #PROGRAM BY DINESH GORADIA 


 eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s*PACKAGE (MAINDEC~11-DZQAC-C3)., JAN 19, 1977. 


** 


s*AC-E107A-MC__ _CZKCGAO KMC FREE RUNNING TEST 
:*COPYRIGHT 1978, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


* Kee eee eee eee ee ee eee eee eee ee Se ee ee eee eee eee eee ee oe eee ee oo oeeeeeeeeses = 


> STARTING PROCEDURE 
: PROGRAM 


sLOAD ADDRESS 000200 

:SWR=0 AUTOSIZE KMC11 

;SWO7=1 USE CURRENT KMC11 PARAMETERS 
; SWOO=1 T NEW KMC11 PARAMETERS 
sPRESS START 

: PROGRAM 


WILL TYPE ‘‘AC-F107A-MC CZKCGAO KMC FREE RUNNING TEST’ 
PROGRAM WILL TYPE STATUS MAP 
:PROGRAM WILL TYPE 'R' TO INDICATE THAT TESTING HAS STARTED 
:AT THE END OF A PASS. PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
AND THEN RESUME TESTING 
; SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 


-SBTTL BASIC DEFINITIONS 
on. aa OF THE STACK POINTER *** 1200 xxx 


STACK= 

-EQUIV EMT.ERROR ;sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE > sBASIC DEFINITION OF SCOPE CALL 
2 *MISCELLANEOUS DEFINITIONS 


LF= 12 CODE FOR LINE FEED 

CR= 15 5 EOE FOR CARRIAGE RETURN 

CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 :;PROCESSOR STATUS WORD 


-EQUIV PS,PSW 


STKLMT= 177774 


DS 177570 
DDI SP= 177570 


+: STACK LIMIT REGISTER 

OGRAM INTERRUPT REQUEST REGISTER 
: :HARDWARE SWITCH REGISTER 
; HARDWARE DISPLAY REGISTER 


ie REGISTER DEFINITIONS 


R1= 41 
R2= %2 


; s GENERA L REGISTER 
: CENERAL REGISTER 
: : GENERAL REGISTER 


0015AC 





O8-JUN-78 07:54 PAGE 4 _ PAGE: 0016C2 
CZKCGA.P11 O8-JUN-78 07:53 BASIC DEFINITIONS 

108 000003 R3= %3 3:GENERAL REGISTER 

109 000004 R4= %4 3 GENERAL REGISTER 

110 000005 R5= %5 3:GENERAL REGISTER 

111 R6= %6 3;GENERAL REGISTER 

112 000007 R7= %7 3;GENERAL REGISTER 

113 000006 SP= %6 ;z;STACK POINT 

er 000007 PC= %7 3;PROGRAM COUNTER 

1 

116 >*PRIORITY LEVEL DEFINITIONS 

117 PRO= 0 ee ITY LEVEL O 

118 000040 PR1= 40 : PRIORITY LEVEL 1 

119 000100 PR2= 100 ;Z;PRIORITY LEVEL 2 

120 000140 PR3= 140 :zPRIORITY LEVEL 3 

121 000200 PR4= 200 ;sPRIORITY LEVEL 4 

122 000240 PR5= 240 szPRIORITY LEVEL 5 

123 090300 PR6= 300 :zPRIORITY LEVEL 6 

ig 000340 PR7= 340 :;PRIORITY LEVEL 7 

126 3%’ SWITCH REGISTER'' SWITCH DEFINITIONS 

127 100000 SW15= 100000 

128 040000 

129 020000 

130 010000 

131 000 

132 002000 

133 001000 

134 000400 

135 000200 

136 000100 

137 000040 

138 000020 

139 000010 

140 000004 

141 000002 

142 000001 

143 

144 

145 

146 V 

147 V 

148 V 

149 V 

150 QUIV 

151 : V 

135 — 

154 :*DATA BIT DEFINITIONS (BITOO TO BIT15) 

155 100000 BIT15= 100000 

156 040000 BIT14= 40000 

157 020000 BIT13= 20000 

158 010000 BIT12= 10000 

159 BIT11= 4000 

160 002000 BIT10= 2000 

161 001000 BITO9= 1000 

162 BITO8= 400 

163 000200 BITO7= 200 
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SS | 


ee eee 
oO 


00090909 SI SIS NSIS 


SSLEARAV LSESELRAR 


200 


000100 
0 


022626 


BASIC DEFINITIONS 


100 

40 

20 

10 

& 

2 
BITO9,BIT9 


BITOO,BITO 


PAGE : 


P cata TRAP VECTOR ADDRESSES 


= 10 


TP 64 
PIRQVE C=240 


> INSTRUCTION DEFINITIONS 


sDECREMENT PROCESSOR STACK 1 WORD 
; INCREMENT PROCESSOR STACK 1 WORD 
;SAVE RO ON STACK 


PUSH1SP= Shoee 


eEQUIV EMT,HLT 


:TIME OUT AND OTHER ERRORS 
:SRESERVED AND ILLEGAL INSTRUCTIONS 


:2 TRACE TRAP 
; sBREAKPOINT TRAP (BPT) 
or ey ol TRAP (IOT) **SCOPE** 


R FAIL 
; s EMULATOR TRAP (EMT) **ERROR** 
>’ 'TRAP"* TRAP 


>: TTY KEYBOARD VECTOR 
7: TTY PRINTER VECTOR 
;sPROGRAM INTERRUPT REQUEST VECTOR 





> IN WICE 
;BASIC DEFINITION OF ERROR CALL 


0017C2 


St 


08 
CZKC 


nmorononn IN 
ANT ANT STANT NST AGA pir ir irr rr 
ANFSWN 20 ODN RWI 


UN-78 07:54 PAGE 6 PAGE: 
P11 08-JUN-78 07:53 TRAPCATCHER FOR UNEXPECTED INTERUPTS 
2 SEAR KK KKK KKK KKK KEKE KKKKEKKKKKKKEKKEE 
: ; TRAPCATCAER FOR ILLEGAL INTERRUPTS 
: THE STANDARD ‘'TRAP CATCHER'' IS PLACED 
“BETWEEN ADDRESS 0 TO ADDRESS 776. 
:IT LOOKS LIKE 'PC+2 HALT 
RALSSSEASAASAAAASAALSASSASESE SESSA SESS SSS SSCS CSS SSS SSCS SSS SLCACLCCLLC.. TY 
000000 .=0 
000000 000000 000000 -WORD 0,0 
:STANDARD INTERRUPT VECTORS 
000020 .=20 
000020 004134 SSCOPE ; SCOPE LOOP HANDLER. 
000022 000340 PR7 : SERVICE AT LEVEL 7. 
000024 007122 SPWRDN :POWER FAIL HANDLER 
000026 000340 PR7 =SERVICE AT LEVEL 7 
000030 006506 $ERROR -ERROR HANDLER 
000032 000340 7 -SERVICE AT LEVEL 7 
000034 006410 STRAP : GENERAL HANDLER DISPATCH SERVICE 
000036 000340 PR7 :SERVICE AT LEVEL 7 
.SBTTL ACT11 HOOKS 
SEER REKKKREKEKEKKKEKKEEKKKKEKKEKEKEKKEKEEEKEEEEKEREEKKKKEKKKKKKEK 
“HOOKS REQUIRED BY ACT11 
000040 $SVPC=. : SAVE PC 
000046 .=46 
000046 004070 SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 000000 “WW 0 ::2)SET LOC. 552 TO ZERO 
000040 .=$SVPC :: RESTORE P 
000174 =174 
000174 000000 DISPREG:0 : SOFTWARE DISPLAY REGISTER 
000176 SWREG: SOFTWARE SWITCH REGISTER 
000200 =200 
000200 000137 002402 JMP .START :GO TO START OF PROGRAM 
001000 .=1000 
001000 005200 041501 042455 MTITLE: .ASCII <200><12>/AC-E107A-MC/<200> 
001016 055103 041513 040507 .ASCIZ /CZKCGAO KMC FREE RUNNING TEST/<200> 
177570 DSWRsi= 177570 
177570 DDISP = 177570 


r @ 


0018C2 





O8-JUN-78 07:54 PAGE PAGE: 0019C2 
CZKCGA.P11 08-JUN~78 07: 53 COMMON TAGS 

258 .SBTTL COMMON TAGS 

261 SF KKK KKEKKK KEK KKK KEKE KKEKKKKKKEEKKEKEKEKKKEE 
262 7*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

or :*USED IN THE PROGRAM. 

265 001200 .=1200 

266 001200 SCMTAG: ::START OF COMMON TAGS 

267 001200 000000 -WORD 0 

268 001202 000 S$TSTNM: .BYTE 0 ;:CONTAINS THE TEST NUMBER 

269 001203 000 SERFLG: .BYTE 0 : CONTAINS ERROR FLAG 

270 0012 000000 $ICNT: .WORD 0 >: CONTAINS SUBTEST ITERATION COUNT 
271 001206 000000 SLPADR: .WORD 0 :: CONTAINS SCOPE LOOP ADDRESS 

272 001210 000000 SLPERR: .WORD 0 ;:CONTAINS SCOPE RETURN FOR ERRORS 
273 001212 000000 SERTTL: .WORD 0 ::CONIAINS TOTAL ERRORS DETECTED 
274 001214 000 SITEMB: .BYTE 0 :: CONTAINS ITEM CONTROL BYTE 

275 001215 001 SERMAX: .BYTE 1 7: CONTAINS MAX. ERRORS PER TEST 
276 001216 000000 SERRPC: .WORD 0 CONTAINS PC OF LAST ERROR INSTRUCTION 
277 001220 000000 $GDADR: .WORD 0 :: CONTAINS ADDRESS OF ‘GOOD' DATA 
278 001222 000000 $BDADR: .WORD 0 ;sCONTAINS ADDRESS OF "BAD DATA 
279 001224 000000 S$GDDAT: .WORD 0 ::CONTAINS ° " DATA 

280 001226 000000 $BDDAT: .WORD 0 :: CONTAINS "BAD" DATA 

281 001230 000000 -WORD 0 : :RESERVED--NOT TO BE USED 

282 001232 000000 -WORD 0 

283 001234 000 SAUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 

284 001235 000 S$INTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 

285 1236 000000 P D QO 

86 001240 177570 : DSWR :zADDRESS OF SWITCH REGISTER 

287 001242 177570 DISPLAY: .WORD DDISP :;ADDRESS OF DISPLAY REGISTER 

288 001244 177560 $TKS: 177560 :: TTY KBD STATUS 

289 001246 177562 $TKB: 177562 77 TTY KBD BUFFER 

290 001250 177564 S$TPS: 177564 :: TTY PRINTER STATUS REG. ADDRESS 
291 001252 177566 $TPB: 177566 :z TTY PRINTER BUFFER REG. ADDRESS 
292 001254 000 : YTE O : CONTAINS NULL CHARACTER FOR FILLS 
293 001255 002 SFILLS: .BYTE 2 :CONTAINS # OF FILLER CHARACTERS REQUIRED 
294 001256 012 S$SFILLC: .BYTE 12 :3 INSERT FILL CHARS. AFTER A ‘LINE p’’ 
295 001257 000 STPFLG: .BYTE 0 32’ ‘TERMINAL AVAILABLE'' FLAG (BIT<O7>=02YES) 
$36 60 000000 E ; 0 =. S FROM 

298 001262 000000 0 

299 001264 000000 0 

266 000000 0 

301 001270 000000 0 

302 001272 000000 0 

303 001274 000000 0 

304 001276 000000 0 

305 300 000000 0 

306 001302 000000 0 

307 304 000000 0 

308 001306 000000 0 

309 001310 000000 ; MAX. NUMBER OF ITERATIONS 

310 001312 077 /?/ :QUESTION MARK 

3171 001313 015 <15> : CARRIAGE RETURN 

312 001314 000012 : <12> NE FEED 

313 b ITI TILI TTL ILI LITLE LELIELELL LITT Li TTT LETT 
314 -SBTTL APT MAILBOX-E TABLE 
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000000 


000 
000 


PAGE: 0O020C 
APT MAILBOX-ETABLE 


SRA EKKKEKKKEKKEKKKEKKEREKKEEREKEEE KEKE EEE EKKKKKE 


: :¢APT MAILBOX 
TY: .WORD :MESSAGE TYPE CODE 
SFATAL: .WORD AFATAL * IFATAL ERROR NUMBER 
STESTN: .WORD ATESTN ;;TEST NUMBER 
SPASS: .WORD APASS  ;;PASS COUNT 
cart. «WORD ADEVCT > sDEVICE COUNT 





: WORD 
SMSGLG: .WORD : LENGTH 
SETABLE: ;sAPT ENVIRONMENT TABLE 
SENV:  .BYTE AENV 7 ENVIRONMENT BYTE 





SENVM: > ENVIRONMENT MODE BITS 
SSWREG: .WORD ASWREG APT SWITCH REGISTER 
SUSWR: .WORD $AUSWR at: igh SWITCHES 

: TYPE ,OPTI 
;* BITS IS-112¢Pu T YPE 
;* 11/ “or. 11/05=02,11/20=03,11/40=04,11/45=05 
3* 11770206" PDOW0?7 0210 
se BIT 10=REAL TIME CLOCK 
;* BIT 9=FLOATING POINT a 
:* BIT 8=MEMORY MANA 
SMAMS1: . AMAMS 1 : sHIGH ADDRESS.M.S. BYTE 
SMTYP1: .BYTE AMTYP1 ;::MEM. TYPE, ka 
MEM. TYPE BYTE * (HIGH BYTE) 









,BLKA 
T ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABO 
; HIGH ADDRESS, a -S. BYTE 


+ «MEM. TYPE .BL 
: ;MEM.LAST ADDRESS .BLK#2 
; HIGH ADDRESS, > -BYTE 


TYPE, 
M.LAST ADDRESS BLK#3 














» WORD 
, HIGH ADDRESS,M.S.BYTE 

-BYTE ki 

. WORD eBLKA4 
SVECT1: .WORD e-BUS PRIORITYA1 
SVECT2: .WORD OR#2BUS PRIORITY#2 
SBASE: .WORD ADDRESS OF EQUIPMENT UNDER TEST 
SDEVM: .WORD > DEVICE MAP 
$CDW1: .WORD : CONTROLLER DESCRIPTION WORD#1 
$CDW2: .WORD : CONTROLLER DESCRIPTION WORD#2 
SDDWO: .WORD ::DEVICE DESCRIPTOR WORDAO 
$DDW1: .WORD ;sDEVICE DESCRIPT 
$DDW2: .WORD > DEVICE DESCRIPTOR WORDA2 
SDDWS: .WORD >sDEVICE DESCRIPT 
$DDW4: .WORD ;sDEVICE DESCRIPTOR WORDA4 
$DDW5: .WORD : DEVICE DESCRIPTOR WORDS 
$DD . WORD :sDEVICE DESCRIPT 
$DDW7: .WORD ;;DEVICE DESCRIPTOR WORDA#7 
SDDW8: .WORD ADDW8 ;;DEVICE DESCRIPTOR WORDA8 


08-JUN~ 
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$DDW15: 


SETEND: 


APT MAILBOX-E TABLE 


ADDW15 


PAGE : 


+ sDEVICE DESCRIPTOR WORDA9 


D 
:sDEVICE DESCRIPTOR WORDA414 
;sDEVICE DESCRIPTOR WORDA15 


> PROGRAM CONTROL PARAMETERS 


NEXT -WORD 0O ; 

LOCK -WORD QO ; 

: PROGRAM VARIABLES 

STRTSW: .WORD 0 : 

STAT: -WORD 0O ; 

CLKX: -WORD 0 . 

MASKX: .WORD 0 : 

SAVSP: .WORD 0 : 

SAVPC: .WORD 0 ; 

ZERO: -WORD 0O : 

ONE : .- WORD 1 ; 

MEMLIM: .WORD 0 : 

KMACTV: .BLKW 1 : 
-BLKW 1 : 

SAVACT: .BLKW 1 : 
-BLKW : 
- WOR 0 ; 
EVEN 

CREAM: .WORD KM.MAP-6 

MILK: -WORD (CNT .MAP-4 

; _PROGRAM CONTROL FLAGS 

INIFLG: -BYTE 0O ; 
-EVEN 

LOKFLG: .BYTE 0O : 

QV.FLG: .BYTE 0 





EVEN 


ADDASS OF NEXT TEST TO BE EXECUTED 
ADDRESS FOR LOCK CURRENT DATA 


SWITCHES AT START OF PROGRAM 
KM STATUS WORD STORAGE 


STACK POINTER STORAGE 
PROGRAM COUNTER STORAGE 


HIGHEST LOCATION FOR NPR'S 
KMC11 SELECTED ACTIVE 
OCTAL NUMBER OF KMC11°S 
ORIGINAL ACTIVE DEVICES. 


WORKABLE NUMBER. 
POINTER TO RUNNING DEVICES 


; TABLE POINTER 
; TABLE POINTER 


PROGRAM INITIALIZING FLAG 


; LOCK ON tae ea FLAG 


; QUICK VERIFY FLA 
; ON FIRST PASS OF EACH KMC11 ITERATIONS WILL BE 


00212 


O8-JUN-78 
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ERROR POINTER TABLE 
-SBTTL ERROR POINTER ‘ABLE 


>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
:*THE INFORMATION IS OBTAINED BY abttat THE INDEX R F 


:*LOCATION SITEMB. THIS NUMBER IND 
IF SITEMB IS 0 


: *NOTE1: 


: *NOTE2: 


PAGE: 0022Ci 


NUMBER FOUND IN 
CATES WHICH ITEM IN THE TABLE IS PERTINENT. 
THE ONLY PERTINENT DATA IS ($ERRPC) 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


DH5 : ERROR 


M2 
DH2 ; ERROR 


E 
. : ERROR 
EM4 
. : ERROR 
EMS 
; : ERROR 
EM4 
DH2 = ERROR 
DT5 
EMS 
DH2 : ERROR 
RY* 
DH1 : ERROR 
. 
DH1 s ERROR 
dg 
DH2 : ERROR 
DT4 
EM11 
DH1 : ERROR 
DT10 
EM12 

: ERROR 


:sPOINTS TO THE ERROR MESSAGE 


A 
;:POINTS TO THE DATA FORMAT 


>: DOES NOT APPLY IN THIS DIAGNOSTIC. 


08~J 
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PAGE: 00242 
ERROR POINTER TABLE 
EM12 
DH2 sERROR 15 
DTS 
EM13 
DH3 sERROR 16 
D111 
EM14 
DH4 sERROR 17 
& DT12 
-=20354 
-SBTTL APT PARAMETER BLOCK 
5 AERA KKEKKKEREKEKEKKKKKKEKEEKKKKKKKKKEKEKKKKKKKKKKKKKKKKKhKKKhKkhkhhe 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
SRE KEAKKKEKKKKEEKEKEKKKEKKKREKKKKKKKKS Kkkk&hkkhkhkkhkkhkhkhkhkkhhkhkhkkkhkhkhhhk 
. SX=. 32SAVE CURRENT LOCATION 
-=24 :;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ::FOR APT START UP 
~=44 : POINT TO APT INDIRECT ADDRESS PNIR. 
SAPTHDR ;:POINT TO APT HEADER BLOCK 
-=. 5X : :RESET LOCATION COUNTER 
Z FEAR KEKKKEKKEAEKEEEKKEKRKKKEKREKKEEKKKKKKEREKKKKKKKKKKKKKKKKKKKKKKKkKKh 
- SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 
SAPTHD: 

' SHIBTS: . 0 : TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: .WORD S$MAIL «ADDRESS OF APT MAILBOX (BITS 0-15) 
STSTM: .WORD 90. 2 ¢RUN TIM OF LONGEST TEST 
SPASTM: .WORD 95. 7zRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITM: .WORD 95. > sADDIT IONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITION 


WORD SE TEND-SMAIL/2 :eLENGTH MAILBOX-E TABLE (WORDS) 
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305 


S353 


VIVA NAMWnu} 
WONAULWN—O 


520 
521 





APT PARAMETER BLOCK 


PAGE : 


:KMC11 CONTROL INDICATORS FOR CURRENT KMC11 UNDER TEST 


STAT1: 
STAT2: 
STATS: 


0 
0 


:KMC11 VECTOR AND REGISTER INDIRECT POINTERS 


> TEMP STORAGE 


; TEMP: 


7.=.+40 
7KMC11 STATUS 


-=2100 
KM. MAP 


Oooo0o0o°0o0o°O 


0 





: POINTER 


TO KMC11 RECEIVER INTERRUF7 VECTOR 

TO KMC11 RECEIVER INTERRUPT SERVICE PS 

TO KMC11 TRANSMITTER INTERRUPT VECTOR 

TO K®.C11 TRANSMITTER INTERRUPT SERVICE PS 
TO KMC11 CONTROL STATUS REGISTER 

TO KMC11 CONTROL STATUS REGISTER HIGH BYTE. 
TO KMC11 CONTOL OUT REGISTER 

TO KMC11 PORT REGISTER(SEL 4) 

TO KMC11 PORT REGISTER(SEL 6) 


TABLE AND ADDRESS ASSIGNMENTS 


ed and ad and ed ceed ceed ed ed need eed ed wonk weed aed mod eed weed eed od 





:CONTROL STATUS REGISTER FOR KMC11 NUMBER 00 
: VECTOR FOR KMC11 NUMBER 00 
>DDCMP LINE# FOR KMC11 NUMBER 00 

STATUS WORD 








:CONTROL STATUS REGISTER FOR KMC11 NUMBER 01 
> VECTOR FOR KMC11 NUMBER 01 

>DDCMP_LINE# FOR KMC11 NUMBER 01 

;3RD STATUS WORD 








>CONTROL STATUS REGISTER FOR KMC11 NUMBER 02 
:VECTOR FOR KMC11 0 

;DDCMP_LINE# FOR KMC11 NUMBER 02 

:3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR KMC11 NUMBER 03 
FOR KMC11 


VECTOR F 
:DDCMP_LINE# FOR KMC11 NUMBER 03 
:3RD STATUS WORD 


:CONTROL STATUS REGISTER FOR KMC11 NUMBER 94 
ECTOR FOR 11 


iV 
:DDCMP LINE# FOR KMC11 NUMBER 04 
:3RD STATUS WORD 





0024C2 
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56 
56 


002150 000001 
002152 000001 
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APT PARAMETER BLOCK 





KMCROS: .BLKW 
KMS105: .BLKW 
: .BLKW 
KMS305: .BLKW 
KMCRO6: .BLKW 
KMS106: .BLKW 
KMS206: .BLKW 
KMS306: .BLKW 
KMCRO7: .BLKW 
107: .BLKW 
KMS207: .BLKW 
KMCR1i0: .BLKW 
KMS110: .BLKW 
KMS21 -BLKW 
KMS310: .BLKW 
KMCR11: .BLKW 
KMS111: .BLKW 
KMS211: .BLKW 
KMS311: .BLKW 
KMCRi2: .BLKW 
KMS112: .BLKW 
KMS212: .BLKW 
KMS312: .BLKW 
KMCR13: .BLKW 


KMS217: 
KMS 317: 





— a ee | aed aed eed aed wed eek eed ood awed and ad weed eed eed aod ed ound weed ed oh od aed od eed ceed cd ced and ah aed od eed ceed ad aed eed goed cond aod 


PAGE : 


sCONTROL STATUS REGISTER FOR KMC11 NUMBER 05 
:V NUMBER 05 


ECTOR FOR KMC11 
~T3RD STATUS WORD 


Se ee ee —— 


sCONTROL STATUS REGISTER FOR KMC11 NUMBER 06 
NUMBER 06 


> VEC 


TOR FOR KMC11 


:DDCMP_LINE# FOR KMC11 NUMBER 06 


:3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR KMC11 NUMBER 
NUMBER 07 


> VEC 


; SRD 


TOR FOR KMC11 
:DDCMP LINE# FOR KMC11 NUMBER 07 
:3RD STATUS WORD 


‘eto STATUS REGISTER FOR KMC11 NUMBER 


TOR FOR KMC11 NUMBER 10 


>DDCMP_ LINE# FOR KMC11 NUMBER 10 
STATUS WORD 


- CONTROL STATUS REGISTER FOR KMC11 NUMBER 
ase FOR KMC11 NUMBER 11 


:3RD S 


DDCMP At FOR KMC11 NUMBER 11 
TATUS WORD 


+ CONTROL STATUS REGISTER “HA KMC11 NUMBER 


;VECTOR FOR KMC11 





NUMBER 
:DDCMP LINE# FOR KMC11 NUMBER 12 


73RD STATUS WORD 


>CONTROL STATUS ge dc on KMC11 NUMBER 


:VECTOR FOR KMC11 





NUMBE 
sDDCMP_LINE# FOR KMC11 NUMBER 13 
US WORD 


33RD STAT 





CONTROL STATUS REGISTER FOR KMC11 NUMBER 
; VEC TOR FOR KMC11 NUMBER 14 


73RD S 


: VEC 





; 3RD 


VEC 


: VEC 


; DDCMP hte FOR 
TATUS WORD 


TOR F 





:DDCMP_LINE# FOR 
STATUS WORD 


TOR 


TOR F 























KMC11 NUMBER 14 





NUMBE 
KMC11 NUMBER 15 





NUMBER 
:DDCMP_LINE# FOR KMC11 NUMBER 16 
:3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR KMC11 NUMBER 
FOR KMC11 NUMBER 17 


:DDCMP_LINE# FOR KMC11 NUMBER 17 


:3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR KMC11 NUMBER 
FOR KMC11 R 15 


:CONTROL STATUS REGISTER FOR KMC11 NUMBER 
FOR KMC11 16 


12 


17 


00252 
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617 002300 000000 KM.END: 000000 
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002302 
002302 
002304 


002306 
00231C 


002312 
002314 


002316 
002320 


002322 
002324 


002326 
002330 


002332 
002334 


002336 
002340 


002342 
002344 
002346 
002350 
002352 
002354 
002356 
002360 
002362 
002364 
002366 
002370 
002372 
002374 
002376 
002400 


APT PARAMETER BLOCK 


7KMC11 PASS COUNT AND ERROR COUNT TABLE 


ERCTOO: 


PACTO1: 
ERCTO1: 


PACTO2: 
ERCTO2: 


PACTOS: 
ERCTO3: 


PACTO4: 
ERCTO4: 


PACTOS: 
ERCTOS: 


PACTO6: 
ERCTO6: 


PACTO?: 
ERCTO?: 


PACT10: 
ERCT10: 


PACT11: 
ERCT11: 


PACT12: 
ERCTi2: 


PACT13: 
ERCT13: 


PACT14: 
ERCT14: 


PACT15: 
ERCT15: 


PACT16: 
ERCT16: 


PACT17: 
ERCT17: 


oOo CO 920Oo 9O SCO 920Oo 900O 90 O20 CO 020 CO 900 920 SCO OO 


sPASS COUNT FOR KMC11 NUMBER 00 
sERROR COUNT FOR KMC11 NUMBER 00 


sPASS COUNT FOR KMC11 NUMBER 01 
sERROR COUNT FOR KMC11 NUMBER 01 


sPASS COUNT FOR KMC11 NUMBER 02 
sERROR COUNT FOR KMC11 NUMBER 02 


sPASS COUNT FCR KMC11 NUMBER 03 
sERROR COUNT FOR KMC11 NUMBER 03 


sPASS COUNT FOR KMC11 NUMBER 04 
sERROR COUNT FOR KMC11 NUMBER 04 


sPASS COUNT FOR KMC11 NUMBER 05 
sERROR COUNT FOR KMC11 NUMBER 05 


sPASS COUNT FOR KMC11 NUMBER 06 
sERROR COUNT FOR KMC11 NUMBER 06 


sPASS COUNT FOR KMC11 NUMBER 07 
sERROR COUNT FOR KMC11 NUMBER 07 


sPASS COUNT FOR KMC11 NUMBER 10 
sERROR COUNT FOR KMC11 NUMBER 10 


:PASS COUNT FOR KMC11 NUMBER 11 
sERROR COUNT FOR KMC11 NUMBER 11 


sPASS COUNT FOR KMC11 NUMBER 12 
sERROR COUNT FOR KMC11 NUMBER 12 


sPASS COUNT FOR KMC11 NUMBER 15 
sERROR COUNT FOR KMC11 NUMBER 13 


sPASS COUNT FOR KMC11 NUMBER 14 
sERROR COUNT FOR KMC11 NUMBER 14 


sPASS COUNT FOR KMC11 NUMBER 15 
sERROR COUNT FOR KMC11 NUMBER 15 


sPASS COUNT FOR KMC11 NUMBER 16 
sERROR COUNT FOR KMC11 NUMBER 16 


sPASS COUNT FOR KMC11 NUMBER 17 
sERROR COUNT FOR KMC11 NUMBER 17 


PAGE : 


0027C2 
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FORMAT OF STATUS TABLE 


15 14 13 12 11 10 09 08 O7 06 O05 04 03 O02 O01 OOD 


I I 
an See Set ee ‘cope ie A lo See we Soe oe co CSR 


ey Se eee Tk, 2s Se ee I 
Be foe Gs oe oe et oe ee ee es en oe a ee ee STATI 
ee eee ee ee Se a Bee I 


SE Seeks ee SS ect ogee Care ae ee Bes ee Be Giles hace Se oe 
; ee. Baw Re Bo Pe Pe eG Ee PF STAT2 
ee ee I og I 


gees 
| ie ae | STATS 
aa 


DEFINITION OF FORMAT 


CSR: CONTAINS KMC11 CSR ADDRESS 


STAT1: BITS 00-08 IS KMC11 VECTOR ADDRESS 
BIT14=1 ???? TURNAROUND ony Shag IS ON 





NO LI 
BITS 09-11 IS KMC11 BR PRIORITY LEVEL 


STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMP_LINE NUMBER) 
HIGH BYTE IS SWITCH PACA42 (BM873 BOOT ADD) 


STATS: BITO=1 DO FREE RUNNING TESTS ON KMC 
(MUST BE SET TO A ONE MANUALLY [PROGRAMS G AND H ONLY)) 
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012737 
2706 


012737 
132737 
00 


12 
105737 
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177777 
000176 
000174 
000004 
000906 
001506 
004070 


001000 
011226 
176352 
000042 


001446 
000001 


001446 


177776 


000024 
001476 


001502 
001504 
001500 


001240 
001242 


0006042 
001446 


001446 


- START: 


23$: 


3$: 


6$: 


7$: 


20S: 


D 3 


PAGE : 
PROGRAM INITIALIZATION AND START UP. 


sPROGRAM INITIALIZATION 
sLOCK OUT INTERRUPTS 


>SET UP PROCESSOR STACK 
:SET UP POWER FAIL VECTOR 


PROGRAM CONTROL FLAGS AND COUNTS 


; CLEAR 
>TYPE TITLE MESSAGE 


MOV 


#340,PS sLOCK OUT INTERRUPTS 
#STACK, SP sSET UP STACK 
#SPWRDN , 0424 ;SET UP POWER FAIL VECTOR 


KMNUM , SAVNUM > SAVE NUMBER OF DEVICES IN SYSTEM. 
SWFLG sCLEAR SOFT TYPEOUT FLAG 

SERFLG : CLEAR ERROR FLAG 

QV.FLG :ZERO QUICK VERIFY FLAG 


#KM.MAP-10,CREAM:GET MAP POINTER. 
#CNT.MAP=4,MILK ;GET PASS COUNT MAP POINTER 
#B81T15,RUN Page POINTER TO FIRST DEVICE. 


#CNT.MAP RO ASS COUNT POINTER TO RO 
(RO) + >CL TABLE 
#CNT.MAP+100,RO :DONE YET? 
23$ :KEEP GOING 
SERRPC sCLEAR LAST ERROR POINTER 
#1 ,.STSTNM :SET UP FOR TEST 1 
#.START,SLPADR ;SET UP FOR POWER FAIL BEFORE 
: TESTING STARTS 

#1, SENV ; IS IT RUNNING UNDER APT? 

$ : IF NOT CHECK FOR TYPE OF SWITCH REGISTER. 
SSWREG,SWREG : LOAD SOFTWARE SWITCH REG. 
6$+2 ; GO SET UP SOFTWARE SWITCH REG. 
a4#6 ,~(SP) ; SAVE CURRENT VECTORS 
af#4 ,-(SP) 


#6$. até “SET UP FOR TIMEOUT 

#177570, SWR :SET SWR TO HARD SWR ADDRESS 

#177570, STSPLAY :SET DISPLAY TO HARD SWR ADDRESS 
aswR :REFERENCE HARDWARE SWITCH REGISTER 

‘ge5 :IF = -1 USE SOFT SWR ANYWAY 

7$ :IF IT EXISTS AND NOT = -1 USE HARD SWR 

(SP)+, (SP)+ “ADJUST STACK 

#SWREG, SWR “POINTER TO SOFT SWR 

#DISPREG, DISPLAY: ;POINTER TO SOFT DISPLAY REG 

(SP) +, and :RESTORE VECTORS 


(SP) +. a#6 

INIFLG :HAS INITIALIZATION BEEN PERFORMED 
#SENDAD ,an42 :IF ACT-11 AUTOMATIC MODE, DON'T TYPE ID 
SMTITLE ;TYPE TITLE MESSAGE 

PC, CKSWR K FOR SOFT SWR 

aSWR, STRTSW :STORE STARTING SWITCHES 

ang? :IS IT RUNNING IN AUTO MODE? 

+6 “BR IF NO 

STRTSW :IF YES, CLEAR SWITCHES 
#SWOO,STRTSW :IF SWOO=1, QUESTIONS ARE ASKED. 
17$ “BR IF SwO00=1 

STRTSW *BIT7=1?7 


0029C2 
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013746 


012703 
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001470 
010725 


001336 
000001 


001337 


000001 
012124 


013540 
001506 
001446 
000006 


002100 


000004 
000006 
000006 
001302 
002066 
003240 
000010 


001336 


001446 


001446 


000004 


Ee 3 
PROGRAM INITIALIZATION AND START UP. 


PAGE: 0030C2 


BPL 17$ :BR IF SWO07=0 
TST KMACTV ;ARE ANY DEVICES SELECTED? 
BNE 16$ YES 
TYPE, | NOACT :NO DEVICES SELECTED. 
HALT =STOP THE SHOW 
BR 2 “DISQUALIFY CONTINUE SWITCH 
17$: TSTB  $ENV : IS IT UNDER APT DUMP MODE? 
BEQ 27$ - YES, CHECK IF APT SIZED IT? 
BITB #1.$ENV : IS IT UNDER Q,V OR RUN MODE? 
E 30$ : YES, NEEDS ONLY APT SIZING. 
33$ : NO, NEEDS REGULAR AUTO.SIZE. 
27$: TSTB  $ENVM : IS IT SIZED BY APT? 
BMI 30$ : YES, NEEDS ONLY APT SIZING. 
BIC #SWOO,STRTSW § =: SIZE ONLY IN AUTO MODE. 
33$: JSR PC,AUTO.SIZE §: GO LO THE AUTO. SIZE. 
BR 16$ ; GO PRINT THE 
30$: JSR PC ,APT.SIZE : GO DO THE APT SIZING. 
16$: TSTB _ INIFLG “FIRST TIME? 
BEQ 21$ “BR IF YES 
STB STRTSW -IF USING SAME PARAMETERS DONT TYPE MAP 
BIT #B1T1!BIT2,STRTSW:IS TEST NO. OR LOCK SELECTED 
BEQ 24$ -IF NO THEN TYPE STATUS 
BR 1 :IF YES DO NOT TYPE STATUS 
21$: COMB _sINIFLG “SET FLAG 
24$: TYPE  .XHEAD = TYPE HEADER 
MOV -MAP RG =SET POINTER 
5$: MOV R4,$TMPO =SET ADDRESS 
MOV (R4)+,STMP1 “SET CSR 
BEQ 1$ *ALL DONE IF ZERO 
MOV (R4)+,$TMP2 “SET STATI 
MOV (R4)+,STMP3 “SET STAT2 
MOV (R4)+,$TMP4 “SET STAT3 
CONVRT :TYPE OUT STATUS MAP 
XSTATQ : 
BR 5$ 
1$: MOV #KM.MAP,RO :RO POINTS TO STATUS TABLE 


LL AAARERRERER REE R EERE RE RERR ERR REREREERRERRR RR EREREREE RRR R EERE 

:2*AUTO SIZE TEST 

:*THIS TEST VERIFYS THAT THE KMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING 
:-*ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
:2*CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ.DH,DQ,DU.DUP,LK,DMC,DZ,KMC) . 
:2*IF THERE ARE NO OTHER FLOATING DEVICES gt THE KMC11, THE FIRST 

:-* KMC11 IS 760110. NO DEVICE SHOULD EVER BE A 

;;*ADDRESS 760000. 


J FREER EEERAKEKEEEKREKKKEEEKKEKEKEREKEAKREEEKEEREKREKEREKEREEKEEEEEEEEREKEEE 


MOV a#4 ,-(S?) SAVE LOC 4 
MOV @46 ,~ (SP) :SAVE LOC 6 
CLR a#6 ; CLEAR yecee 
CLR STMP2 :CLEAR FLAG 
AUSTRT: MOV (RO> ,.KMCSR :GET ay KMC CSR 
BEQ AUDONE F DONE 
2$: MOV #NODEV , a4 SET UP FOR 


TIMEOUT 
3$: MOV #10,R5 :R3 IS COUNT OF DEVICES BEFORE KMC 


08~J 
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837 


012702 
01 Ah 
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003342 
160010 


003244 
002066 


001302 


003244 


177777 
001264 


002 


004 
002 


000004 


001460 


001302 


4$: 
FLOAT: 


FY: 


OK: 


NODEV: 
ERR: 


1$: 


3$: 
4$: 
ERRPC: 


CONTAB: 


KM 
DEVTAB: . 


MOV 


F 3 


PROGRAM INITIALIZATION AND START UP. 


#DEVTAB,R2 
#160010,R1 
(R1) 


(R2) ,R4 
R1 


#10,RO 
#10,R1 

(RO) ,KMCSR 
AUDONE 

FY 
(R2)+,-(R3) 
STMP2 

1$ 


#ERR ,SAVPC 


#-1 ,STMP2 
R1,$REGi 


(SP)+, (SP) + 
OK 


6,2 


NNN 


PAGE : 


sR2 IS DEVICE TABLE PONTER 
;START WITH gn 160010 
:CHECK ADDRESS R1 

5ar oy TIMEOUT, GET NEXT ADDRESS 


:ANY ORE DEVICES TO CHECK FOR? 
sOK ONLY KMC'S ARE LEFT, SET UP FOR TIMEOUT 
> CHECK KMC ADDRESS 

; DOES IT MATCH 


IF YES 
:GET NEXT KMC ADDRESS 
:DO IT AGAIN 
sSKIP TO NEXT KMC CSR 
: GET NEXT KMC ADDRESS 
: GET NEXT KMC CSR 
; BRANCH IF ALL DONE. 
DO IT AGAIN. 
;ON TIMEOUT, INC R2, DEC R3 
PADR 


® CHECK FLAG IF = 0 TYPE HEADER 
> SKIP HEADER 
: TYPEQUT HEADER MESSAGE 
: CONFIGURATION ERROR! !!! 
>SAVE PC FOR TYPEOUT 
s TYPE OUT ERROR PC 


: TYPE REST OF HEADER 


=SET FLAG SO IT ONLY GETS TYPED ONCE 
“SAVE R1 FOR TYPEOUT 


: TYPE CSR VALUES 


sADJUST STACK 
:BR TO GET OUT 


0031C2 
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003354 
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000006 
000004 
000010 
010013 


175630 
007666 


175610 
001470 
0003C90 
000302 


001007 


001200 
000006 
000004 
003546 
000006 


157776 


007776 
001466 


001446 


001474 


001470 


000004 


177776 
001446 


004146 
004146 


.EVEN 


AUDONE : 
1$: 


2$: 


3$: 
4$: 


6$: 


7$: 


2$: 


10$: 


1$: 


G 3 


PROGRAM INITIALIZATION AND START UP. 


(SP)+,a46 
(SP) +, a44 
elie 


»-MNEW 
RO 


@SWR,SAVACT 
»MERR3 


“Ee 
@SWR .KMACTV 
KMACTV,RO 


( 
(RO)+,(R1)+ 
#1000,RO 


RESTART 


#STACK, SP 
a6 ,-(SP) 
avs ,~(SP) 
RO 


#2$ ,ah4 
a46 


(RO) + 
#157776,R0 
6$ 





1 
(SP)+, (SP) + 


+7996 RO 
#30000 RO 


#37400,R0 

7$ 

#340,PS 
wB1T2, STRTSU 
,MLOCK 

ANOP, TST 
BRW,TTST 
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sRESTORE LOC 6 
sRESTORE LOC 4 
mores’ ae eee ae DEVICES?? 


:BR 

: TYPE THE MESSAGE. 

:ZERO DATA LIGHTS 

:WAIT FOR USER TO io WHAT DEVICES TO RUN 
71S THE NUMBER VALID 

:BR IF NUMBER IS OK. 

>TELL USER . INVALID NUMBER. 
:STOP EVERY THING. 

;RESTART THE PROGRAM AGAIN 

>GET NeW DEVICE PATTERN 

:SHOW THE USER WHAT HE SELECTED. 
> CONTINUE DYNAMIC SWITCHES. 
:PREPARE TO CLEAR THE FLOATING 
sVECTOR AREA. 300-776 

:START PUTTING ‘PC+2 - HALT’ 


; 0 

>SET UP FOR TIME OUT 
>TO AUTOSIZE MEMORY 
sCHECK ADDRESS IN RO 
:IS A o LEAST 28K 


; CONTINUE 

sADJUST STACK 

;GET LAST GOOD ADDRESS 
: SAVE 2K FOR MONITORS 
:IS 4 8K? 


F NO 
‘IF ak DON'T SAVE 2K 


“LOCK wi INTERRUPTS 
> CHECK F 


>BR IF NO 
‘ue LOCK SELECTED. 
:SET UP TO LOCK 


TINUE ALONG. 
;PREPARE NORMAL SCOPE ROUTINE 


H 3 
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PAGE: 00353C2 
CZKCGA.P11 O8-JUN-78 07:53 PROGRAM INITIALIZATION AND START UP. 
949 003634 012737 011474 001206 3$: MOV MCYCLE,SLPADR ;START AT ‘'CYCLE’’ FIND WHICH DEVICE TO TEST 
950 003642 032737 000002 001446 4$: BIT #SWO1,STRTSW :IS TEST NO. SELECTED? 
951 003650 001002 BNE 5$ :BR IF YES 
952 003652 104401 007636 TYPE .MR STYPE R 
953 0035656 000177 175324 5$: JMP @$LPADR “START TESTING 
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CZKCGA.P11 08-JUN-78 07:53 END OF PASS ROUTINE 

954 OF PASS 

955 YPE NAME OF TEST 

956 ‘UPDATE PASS COUNT 

957 :CHECK FOR EXIT TO ACT-11 

o28 “RESTART TEST 

oe -SBTTL END OF PASS ROUTINE 

962 FF RARER KERRIER EEKKEKEKEKKKKKEE 

963 : * INCREMENT THE PASS NUMBER ($PASS) 

964 :*IF THERES A MONITOR GO TO IT 

oo2 :*IF THERE ISN'T JUMP TO CYCLE 

967 SEOP: 

968 RESET 

969 2 001324 INC ; INCREMENT THE PASS COUNT 

970 105037 001203 CLRB ; CLEAR ERROR FLAG 

971 104401 007614 TYPE ; TYPE END PASS 

972 104401 007741 TYPE ; TYPE *‘CSR’ 

973 104417 0041 CNVRT ; SHOW IT. 

974 104401 007747 TYPE ; TYPE VECTOR. 

975 104417 004112 CNVRT ; SHOW IT. 

976 104401 007755 TYPE : TYPE °° PASSES °’ 

977 104417 004120 CNVRT ; SHOW IT. 

978 104401 007766 TYPE ; TYPE ** ERRORS *' 

979 104417 004126 CNVRT ; SHOW IT. 

980 013700 0015 ; SET POINTER TO PASSCNT. 

981 013720 001324 MOV ; SAVE THE PASS COUNT. 

982 013720 001212 MOV ; SAVE ERROR COUNT 

983 013777 002060 176074 MOV KMRLVL.@KMRVEC ; RESTORE THE RECEIVER INTERRUPT VECTOR. 

984 005077 176072 CLR @KMRL VL ; RESTORE RECEIVER LEVEL 

985 013777 002064 176066 MGV KMTLVL.@KMTVEC ; RESTORE THE TRANSMIT INTERRUPT VECTOR. 

986 17 CLR @KMTLVL ; RESTORE TRANSMITTER LEVEL 

987 005337 001476 DEC ; ALL DEVICE TESTED? 

988 001035 BNE SDOAGN ; BRANCH IF NO. 

989 112737 000377 001511 MOVB #377 ,QV.FLG ; SET QUICK VERIFY FLAG. 

990 013737 001472 001476 MOV KMNUM , SAVNUM ; RESTORE DEVICE COUNT. 

991 005037 001216 CLR SERRPC : CLEAR LAST ERROR PC 

992 005037 001310 CLR STIMES :;ZERO THE NUMBER OF ITERATIONS 

993 005237 001324 INC SPASS 33 ; INCREMENT THE PASS NUMBER 

994 042737 100000 001324 BIC #100000.S$PASS ;;DON'T ALLOW A NEG. NUMBER 

995 005327 DEC (PC) + ;; LOOP? 

996 000001 SEOPCT: .WORD 1 

997 003013 BGT SDOAGN S280 

998 012737 MOV (PC)+,a(PC)+ > sRESTORE COUNTER 

999 000001 SENDCT: .WORD 1 

1000 004046 SEOPCT 

1001 013700 000042 $GET42: MOV @#42,R0 ::GET MONITOR ADDRESS 

1002 001405 SDOAGN ;2BRANCH IF NO MONITOR 

1003 000005 RESET ::CLEAR THE WORLD 

1004 004710 SENDAD: JSR PC, (RQ) :;GO0 TO 

1005 000240 NOP ; 2 SAVE 

1006 000240 NOP $3 

1007 000240 NOP > 3ACT11 

1008 SDOAGN: 

1009 000137 JMP a(PC)+ ; ;RETURN 





SESERELES SEES 
RREERERERE 


SSagEe 


elie tte Ie Be Be ee Ee SS ee ea ee eee ee 


SRERESSEUTAe 


U 


ERRRERRERR RES 


WANN a S  - 


wet na st ws 
NRRROOROEE 





011474 
00000 


000416 
013746 
012737 
005737 
012637 
000436 
022626 
012637 
000437 


105737 
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002 
002 
002 


002 


001216 
013764 


175070 
175064 
040000 


177776 
175046 


000004 


174762 


i | 


END OF PASS ROUTINE 


SRTNAD: .WORD CYCLE 


XCSR: 1 
-BYTE 6,2 
KMCSR 
XVEC: 1 
-BYTE 4.2 
KMRVEC 
XPASS: 1 
-BYTE 6.2 
SPASS 
XERR: 1 
-BYTE 6,2 
SERTTL 


:SCOPE LOOP AND INTERATION HANDLER 


-SBTTL SCOPE HANDLER ROUTINE 


DDRII III I TTI TOTTI TOIT TIO OTTO TOTTORI It tk 
:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG ‘“SERFLG) INTO DISPLAY<15:08> 

>*THE SWITCH OY PROVIDED BY THIS ROUTINE ARE: 











= *SW14=1 LOOP ON TEST 
> *SW11=1 INHIBIT ITERATIONS 
> *CALL 
8 SCOPE ::SCOPE=JOT 
S$SCOPE : 
CLR SERRPC : CLEAR LAST ERROR PC 
CMP TS7T142, (SP) > IS THIS TEST #1 ? 
Q SXTSTR : IF SO DON'T LOOP. 
TTST: BR 1$ ; 
TSTB = aSTKS : KEYBOARD DONE ? 
BPL SOVER ; IF NO DONT WAIT. 
MOV @$TKB,-2(SP) ; 
1$: BIT #B1T14,aSWR ::LOOP ON PRESENT TEST? 
BNE R =:YES IF Sw14=1 
:HAHHASTART OF CODE FOR THE XOR TESTERMHAMA 
$XTSTR: BR * ::1F RUNNING ON THE "‘XOR'’ TESTER CHANGE 
::THIS INSTRUCTION TO A ‘NOP'' (NOP=240) 
MOV @#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #$ @WERRVEC ::S IMEOUT 





1 OR? 
MOV (SP)+, @MERRVEC ::RESTORE THE ERROR VECTOR 
BR SSVLAD ::G0 T XT TEST 
5$: CMP (SP)+, (SP)+ ::CLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+,@#ERRVEC ;::RESTORE THE ERROR VECT 
BR SOVER ::LOOP ON THE PRESENT TEST 
6S: :AANNHEND OF CODE FOR THE XOR TESTERMMAAH 





: ate — “ ERROR OCCURRED - 
4$: CLRB $ERFLG =:ZERO THE ERROR FLAG 
CLR STIMES ;: CLEAR THE NUMBER OF ITERATIONS TO MAKE 
3$ BIT #B1T11,aSWR :: INHIBIT ITERATIONS? 
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~N 
— 


3 
88 


(pinay 
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RESe 
Sat 


SEREREE 
SSSRnes 


13 
012737 
013737 


113737 


105737 
10000 
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001324 
001204 
001310 
000001 
004356 
001202 


001206 
001202 
001206 
001444 
002066 


011226 
001000 
001444 
001444 


001257 


000002 


001204 
001310 
001322 
174704 


174646 


PAGE: 0036C2 


SCOPE HANDLER ROUTINE 


BNE 1$ ;7BR IF YES 

TST SPASS had FIRST PASS OF PROGRAM 

BEQ 1$ INHIBIT ITERATIONS 

INC SICNT > INCREMENT ITER“ TION COUNT 

CMP STIMES,SICNT : CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER ;BR IF MORE ITERATION REQUIRED 


1$: MOV #1 ,SICNT 
MOV SMXCNT .STIMES 
SSVLAD: ;INCB $TSTNM 


: :REINITIALIZE THE Uh rth eR COUNTER 
SET NUMBER OF ITERATIONS TO DO 
:COUNT TEST NUMBERS 


MOVB STSTNM,STESIN SET TEST NUMBER IN APT MAILBOX 
MOV (SP) ,$LPADR =SAVE SCOPE LOOP ADDRESS 
SOVER: MOV STSTNM,aDISPLAY «DISPLAY TEST NUMBER 
MOV SLPADR, (SP) 3 FUDGE RETURN ADDRESS 
CLR LOCK ; RESET LOCK ON DATA. 
AH KMCSR,R1 ; R1 CONTAINS BASE KMC ADDRESS. 
BRW: -WORD 406 
SMXCNT: 20 3;zMAX. NUMBER OF ITERATIONS 
; CHECK FOR FREEZE ON CURRENT DATA 
-SCOP1: JSR PC,CKSWR sCHECK FOR SOFT SWR 
BIT #SWO9, ASWR :I1S SwWO9=1(SET)? 
BEQ 1$ “BR IF NOT SET. 
TST LOCK 
BEQ 1$ 
MOV LOCK, (SP) :;GOTO THE ADDRESS IN LOCK. 
1$: RTI :GO BACK. 


> TELETYPE OUTPUT ROUTINE 


-SBTTL TYPE ROUTINE 


f AEKERAKRAREKRAEERAKEAEKREAKEKRKKEKEEKEKEEKEEEKEKEKAEEEKEEKEKKKKKKKKEK 


® SROUT INE TS TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
: *NOTE1: SNULL CONTAINS Vie sahena ae TO BE USED AS THE FILLER CHARACTER. 








3 *NOTE2 SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
2 *NOTES SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
"* 
> *CALL: 
:*7) USING A TRAP INSTRUCTION 
‘coh TYPE »MESADR :sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 
;* TYPE 
3% ME SADR 
-* 
$TYPE i a dae e215 THERE A TERMINAL? 
HALT ; HALT HERE IF NO TERMINAL 
BR 3$ 3 E 
1$ MOV RO,-(SP) :; SAVE RO 
MOV @2(SP) ,RO ;:GET ADDRESS OF ASCIZ STRING 
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lea ee cee eee ie I Be eel Re Re ee Re ee ee ee ee ee ee ee ee ee ee ee ee eee ee 
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004430 
004436 
004440 
004446 
004450 

54 


004502 


ROSES EEE EERE 
EYER RNaRSeSS 


Vi OR roa ee ee 
™ 
oO 


g #8 


004666 
004670 


122737 


004737 
123726 
001350 
013746 
105366 
002770 
004737 
105337 
000770 


112716 
004737 
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000001 
000100 


004460 
004700 


000040 


000002 
000011 
000200 


004666 
004622 
001256 
001254 


000001 
004622 
004666 


000040 
004622 
000007 
174422 
000002 
000015 


004666 
000012 


001336 
001337 


001337 


004666 


174414 
000002 


000002 


TYPE ROUTINE 


61$: 
2$: MOVB 
60$: MOV 
3$: 


4$: 


5$: JSR 
6$: CMPB 


7$: DECB 


sHORIZONTAL TAB 


8$: MOVB 
9$: J 


STYPEC. 


BR 
1$: CMPB 


SCHARCNT : 
$TYPEX: RTS 


. WORD 
62$: BITB 
BNE 


B 
- WORD 


#APTENV, SENV 
62$ 


#APTSPOOL ,SENVM ; 
62$ 


RO,61$ 
PC ,SATY3 


#APTCSUP,SENVM 


(RO) +,-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 
#CRLF , (SP) 


(SP) + 


SCHARCNT 
2$ 


PC ,$TYPEC 
aati 


SNULL ,- (SP) 
1¢SP) 

6$ 

PC .STYPEC 
SCHARCNT 


PROCESSOR 


#7. SCHARCNT 
9$ 

(SP) + 

2$ 

asTPSs 
STYPEC 
2(SP) ,a$TPB 
. ,e(SP) 
nl 
atts gets? 
(Pee. 

PC 


on wm 
= 


; RUNNING IN APT MODE 
NO, GO CHECK FOR APT CONSOLE 
sSPOOL MESSAGE TO APT 
;3NO, GO CHECK FOR CONSOLE 
TUP MESSAGE 7 aT FOR APT 


*APT CON 
77 YES,SKIP TYPE 
;2PUSH CHARACTER TO BE TYPED ONTO STACK 
;7;BR IF IT ISN'T THE TERMINATOR 
321F TERMINATOR POP IT OFF THE STACK 
; sRESTORE RO 
: ADJUST RETURN PC 
7 RETURN 


3; BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


sPOP <CR><LF> EQUIV 
TYPE A CR AND LF 


- CLEAR CHARACTER COUNT 


. 

cq) 
x 
~ 
saces 
a | 
— 
mn 
y 2) 


71S IT TIME FOR FILLER CHARS.? 
SIF GO GET NEXT CHAR 
73GET # OF FILLER CHARS. NEEDED 
7 AND THE NULL CHAR. 
>sDOES A NULL NEED TO BE TYPED? 
:sBR IF NO--GO POP THE NULL OFF OF STACK 
:2GO TYPE A NULL 
--D0 NOT COUNT AS A COUNT 


ge TAB WITH SPACE 
sc TYPE A SPACE 
: sBRANCH IF NOT AT 
STOP 


:3TAB SPACE OFF STACK 
= :GET NEXT CHARACTER 
> :WAIT UNTIL PRINTER IS READY 


eh CHAR TO BE TYPED INTO DATA REG. 
:IS 9 ye oo A CARRIAGE RETURN? 


; s YES~=CLEAR CHARACTER COUNT 
3358 CHARACTER A LINE FEED? 
CH IF YES 


;:COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 
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900001 


000001 


005134 
000001 


003134 


005136 


001336 
001337 


000004 


001316 


005046 
000004 


001320 
000004 
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APT COMMUNICATIONS ROUTINE 
-SBTTL APT COMMUNICATIONS ROUTINE 


FERRER EEEEEKEKEKEEEKRKEEEEEEEEREEEEEREEEEEEREEKEKKKKKKKRK 


SATA: 


SATY4: 
SATYC: 


1$: 


2$: 


11$: 


12$: 


SMFLG: 


_MOVB 
VB 


RTS 

BYTE 
BYTE 
-BYTE 


EVEN 
APTSIZE=200 


APTENV=001 
APT SPOOL =100 


#] -SEFLG 

#1 ,SMFLG 
SATYC 
#1,SFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 

+$ 

#APTENV, SENV 
— , SENVM 
@4 (SP) ,RO 
#2,4(SP) 
alll 


RO, SMSGAD 
(RO) + 
2$ 


SMSGAD .RO 
RO 


RO, SMSGLGT 
Soe erel re 


PAGE : 


:210 REPORT FATAL ERROR 
::TO TYPE A MESSAGE 


3;TO ONLY REPORT FATAL ERROR 
; «PUSH RO ON STACK 
;PUSH R1 ON STACK 
; s SHOULD TYPE A MESSAGE? 
31F NOT: 
; OPERATING UNDER APT? 
NOT: BR 
; § SHOLLD SPOOL MESSAGES? 
NOT: BR 
GET MESSAGE ADDR. 
> BUMP RETURN ADDR. 
:7SEE IF DONE W/ LAST XMISSION? 


IF 
‘ein ADDR IN MAILBOX 
FIND END OF MESSAGE 


+ SUB START OF MESSAGE 


; X 
7: TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 
: PUSH 199776 ON STACK 
-:CALL TYPE MACRO 





>: SHOULD REPORT FATAL ERROR? 
:3IF NOT: BR 
: Sa a UNDER APT? 
F NOT: BR 
: FINISHED ree MESSAGE ? 


>eGET NERROR d 
ADDR. 


: ;BUMP RETURN 
:: TELL APT TO TAKE ERROR 
73CLEAR FATAL FLAG 


: POP STACK INTO RO 
RETURN 

::MESSG. FLAG 

;;LOG FLAG 

::FATAL FLAG 


0038C2 


N 3 
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1234 000040 APTCSUP=040 

1235 § Pere ew eee ereereeooroesno= 

1236 

ise -SBTTL TTY INPUT ROUTINE 

1239 SRE RRR AREER ERE 
1240 .ENABL LSB 

1241 

1242 .DSABL LSB 

1243 

1244 
1245 5 LRA ARR ERE EE RAEREE RE RRERERERREER ERE REERREEERAERK hee 
1246 = *THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

1247 :*CALL: 
1248 ie RDCHR 3; INPLT A SINGLE CHARACTER FROM THE TTY 
1249 ;* RETURN HERE ;; CHARACTER IS ON THE STACK 

1250 ;* ;;WITH PARITY BIT STRIPPED OFF 
1323 . 
1253 905140 011646 SRDCHR: MOV (SP) ,~ (SP) 3=PUSH DOWN THE PC 

1254 005142 000004 000002 MOV 4(SP) ,2(SP) Bh | THE PS 

1255 005150 105777 174070 1$: TSTB asTKS + FOR 

1256 005154 100375 BPL 1$ Bg oe 

1257 005156 117766 174064 000004 MCVB @$TKB,4(SP) : ; READ THE T 

1258 005164 042766 177600 000004 BIC #°C<177>,4(SP) :IGET RID OF ee IF ANY 

1259 005172 026627 000004 000023 CMP 4(SP) #23 :1S IT A CONTROL-S? 

1260 005200 001013 BNE 3$ : ;BRANCH IF NO 

1261 005202 105777 174036 2$: TSTB asTKs :zWAIT FOR A CHARACTER 

1262 005206 100375 BPL 2s ;;LOOP UNTIL ITS THERE 

12635 005210 117746 174032 MOVB a$TKB,-(SP) :2;GET CHARACTER 

1264 005214 042716 177600 BIC #°C177, (SP) :iMAKE IT 7-BIT ASCII 

1265 005220 022627 000021 CMP (SP) +421 :21S IT A CONTROL-Q? 

1266 005224 001366 BNE 2$ :2:1F NOT DISCARD IT 

1267 005226 000750 BR 1$ carer RE SUME 

1268 005230 026627 006004 000140 3$: CMP 4(SP) ,4140 ‘i iT UPPER CASE? 

1269 005236 002407 BLT > BRANCH IF YES 

1270 005240 026627 000004 000175 CMP 4(SP) ,4175 SIs IT A SPECIAL CHAR? 

1271 005246 003003 BGT 4$ oe CH IF YES 

1272 005250 042766 000040 000004 BIC #640 ,4(SP) > 7MAKE IT UPPER CASE 

1273 005256 000002 4$: RT] ;:GO BACK TO USER 

1274 5 RARER ARERARERRRARKEREERRAERREEEARERRERERERREEREREREKEREERERRREEE 
1275 >*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

1276 > *CALL: 

1277 ;* RDLIN ¢ 2 INPUT A STRING FROM THE TTY 
1278 :* RETURN HERE ce ADDRESS OF FIRST CHARACTER WILL BE ON THE STAC 
i ;* ;; TERMINATOR WILL BE A BYTE OF ALL O'S 
1281 005260 010346 SRDLIN: MOV R3,-(SP) : ¢ SAVE R3 

1282 005262 005046 CLR ~ (SP) ;CLEAR THE RUBOUT KEY 

1283 005264 012703 005514 1$: MOV #$STTYIN,R3 7 3GET ADDRESS 

1284 005270 022703 005523 c$: CMP #STTYIN+7,R3 ;BUFFER FULL? 

1285 005274 101456 BLOS 4$ -:BR IF YES 

286 005276 104402 RDCHR ;;GO READ ONE CHARACTER FROM THE TTY 
1287 005 112613 MOVB (SP)+,(R3) ::GET CHARACTER 

288 005302 122713 000177 10$: CMPB #177, (R3) 1239.4) 4.5 

1289 5 001022 BNE 5$ ;;BR IF NO 
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000134 
005512 
177777 
005514 


005512 
005512 


000134 
005512 


000025 
0055235 
000022 
001313 
005514 
001312 
005512 
005512 
000015 


177777 
001314 
000004 
005514 


005015 
051412 
000040 
042516 

000 


005512 


005512 


000002 
000004 


000012 

C00 
051127 
020127 


TTY INPUT ROUTINE 


6$: DEC 


BR 
5$: TST 


7$: CMPB 


BR 
8$: CMPB 


BR 
4$: TYPE 

BR 
3$: MOVB 


9$: -BYTE 


STTYIN: 
SCNTLU: 
SCNILG: .ASCIZ 
SMSWR: .ASCIZ 


SMNEW: .ASCIZ 


(SP) 

6$ 

#*\ ,9$ 

, 9S 

#-1, (SP) 
R3 
R3,ASTTYIN 
4$ 

(R3) ,9$ 


#15, (R3)+ 
-1(R3) 

.SLF 

(SP)+ 
(SP)+,R3 

(SP) ,-(SP) 
4(SP) ,2(SP) 
#STTYIN,4(SP) 
0 

0 


7 
/*U/<15><12> 
/*G/<15><12> 


<15><12>/SWR = 


/ NEW = 


PAGE: 


:IS THIS THE FIRST RUBOUT? 
:3R IF NO 
> TYPE A BACK SLASH 


;z;SET THE RUBOUT KEY 
;;BACKUP BY ONE 
fe EMPTY? 


;BR_IF YES 
2 TYP ” TYPEOUT THE DELETED CHAR. 


::GO READ ANOTHER CHAR. 
: SRUBOUT KEY SET? 


ee IF NO 
:sTYPE A BACK SLASH 


;:CLEAR THE RUBOUT KEY 
eR & a A CTRL U? 


oe I 
;;TYPE_A CONTROL ‘U'’ 
::GO0 START OVER 
:31$ CHARACTER A ‘*R'*? 
BRANCH _IF NO 
3 CLEAR THE CHARACTER 
YPE A "'CR'' & ‘LF’ 
:ETYPE THE INPUT STRING 
: G0 PICKUP ANOTHER CHACTER 


:;CLEAR THE BUFFER AND LOOP 
>sECHO THE CHARACTER 


:eCHECK FOR RETURN 
>sLOOP IF NOT RETURN 
>sCLEAR RETURN (THE 15) 
+ TYPE A LINE FEED 
AN RUBOUT KEY FROM THE STACK 
7 RESTORE R3 
; sADJUST THE STACK AND PUT ADDRESS OF THE 
3 FIRST ASCII CHARACTER ON IT 


7 RETURN 

+s STORAGE FOR ASCII CHAR. TO TYPE 
INATOR 

: RESERVE 7 BYTES FOR TTY INPUT 
TROL ‘U'' 

z3 : CONTROL a 


-EVEN 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


FERRE KEKEEKEEEKEKKEKKKREKEREREEKEEREKEREKEEKEKEKEREEKEKREEEREEREEREED 


‘THIS ROUT INE + Re AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


> *CHANGE IT TO 


BINA 
>*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 


0040C2 


08-J 
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ee 
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CA 
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WN 
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000004 000002 


005706 


000060 


000067 


177770 


000012 
005716 


001312 


e 


C 4 


READ AN OCTAL NUMBER FROM THE TTY 
>*OCTAL DIGITS. IF AN 
:*FO 


PAGE : 


AN ILLEGAL CHARACTER IS READ A ‘'?'’ WILL BE TYPED 


D BY A CARRIAGE RETURN=LINE FEED. THE COMPLETE NUMBER MUST 


LOWE 
:*THEN BE RETYPED. THE INPUT IS 
CALL: 


RDOCT 
RETURN HERE 


TERMINATED BY TYPING A CARRIAGE RETURN. 


:sREAD AN OCTAL NUMBER 
;-LOW ORDER BITS ARE ON TOP OF THE STACK 
;sHIGH ORDER BITS ARE IN $HIOCT 


+ PROVIDE SPACE FOR THE 
:¢ INPUT NUMBER 
;sPUSH RO ON STACK 
;sPUSH R1 ON STACK 
+ PUSH R2 ON STACK 

sREAD AN ASCIZ LINE 
;3GET ae it OF 1ST CHARACTER 


SAVE IT 
;sCLEAR DATA WORD 


sete aER THIS CHARACTER 
IF ZERO GET OUT 
:ZMAKE SURE THIS CHARACTER 
:31S AN OCTAL DIGIT 


si%e 
72%*4 
77*8 


iat THE ASCII JUNK 
D IN THIS DIGIT 


* CLEAN TERMINATOR FROM STACK 
3;2SAVE THE RESULT 


:sPOP STACK INTO R2 
:>sPOP STACK INTO R1 
‘ane INTO RO 


=:CLEAN PARTIAL FROM STACK 
>:SET A TERMINATOR 
>: TYPE UP THRU THE BAD CHAR. 


ae as ‘'cR'' g “TF 
STTRY AGAIN 
; HIGH ORDER BITS GO HERE 


; SAVE REGISTER R5. 
GET FIRST PARAMETER ADDRESS. 
MESSAGE ADDRESS. 


:* 

3 

$RDOCT: MOV (SP) ,- (SP) 
MOV 4(SP) ,2(SP) 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 

1$: RDLIN 
MOV (SP)+,RO 
MOV 0,5$ 
CLR 
CLR R2 

2s: MO (RO) +,-(SP) 
BEQ 3 
C #°O, (SP) 
BGT 
CMPB #°7, (SP) 
BLT 4$ 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
BIC #*C7,(SP) 
ADD (SP)+,R1 
BR 

3$: TST (SP) + 
MOV R1,12(SP) 
MOV R2,SHIOCT 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
RT] 

4S: TST (SP) + 
CLRB (RO) 
TYPE 

5$: -WORD 0 
TYPE , SQUES 
BR 1$ 

$HIOCT: .WORD 0 

Ps INPUT OCTAL NUMBER ROUTINE 

SINPUT: MOV R5,-(SP) 
MOV 2(SP),R5 
MOV (R5)+, WHAT 
MOV (R5)+,LOLIM 


(R5)+,HILIM 


GET 
GET LOW LIMIT FOR THE # 
GET HIGH LIMIT FOR THE #. 


0041C2 
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1402 005742 012537 006050 MOV (R5)+,WHERE ; GET ADDRESS OF INBUFFER 
1403 005746 112537 006052 MOVB (R5)+,LOBITS ; GET LOWMASK SITS. 
1404 005752 112537 006053 MOVB (R5)+,ADRCNT >; GET # OF #°S TO BE GENERATED. 
1405 005756 010566 000002 MOV R5,2(SP) ; SAVE THE RETURN ADDRESS. 
1406 005762 104401 INLP1: TYPE ; TYPE THE MESSAGE. 
1407 005764 000000 WHAT: .WORD 0 
1408 005766 104404 RDOCT ; READ OCTAL #4 FROM KEYBOARD. 
1409 005770 021637 006046 CMP (SP),HILIM : IS IT IN HIGH LIMIT? 
1410 005774 003003 BGT $ ; BRANCH IF NO. 
1411 005776 021637 006044 CMP (SP) ,LOLIM : IS IT MORE THAN LOW LIMIT. 
lg 006002 002005 BGE 3$ ; BRANCH IF YES. 
1415 006004 104401 001312 2$: TYPE , SQUES a: Sl 
1414 006010 104401 001313 TYPE , CRLF ; TYPE <CR>,<LF> 
1415 006014 000762 BR INLP1 ; 
1416 006016 013705 006050 3$: MOV WHERE ,R5 ; GET BUFFER ADDRESS. 
1417 006022 011625 4$: MOV (SP) , (R5)+ ; SAVE THE # IN RIGHT PLACE. 
1418 006024 062716 000002 ADD #2, (SP) ; NEXT SEQUENTIAL NUMBER. 
1419 006030 105337 006053 DECB ADRCNT ; COUNT BY 1. 

420 006054 001372 BNE 4$ ; BRANCH IF NOT DONE. 

421 006036 005726 TST (SP) + ; POP THE STACK POINTER. 

422 006040 012605 MOV (SP)+,R5 ; POP THE REG.S 

4235 006042 000002 RTI 

24 006044 LOLIM: .WORD 0 

25 006046 000000 HILIM: .WORD QO 

26 006050 WHERE: . 0 

27 006052 000 LOBITS: .BYTE Q 

28 006055 000 ADRCNT: .BYTE 0 


; ADVANCE TO NEXT TEST HANDLER 


006054 013716 001442 . ADVANCE : MOV NEXT, (SP) : CRUNCH STACK WITH ADDRESSOF SC 
006060 005037 001444 CLR LOCK -: RESET TIGHT LOOP ADDRESS 
006064 000002 RTI ; CHECK TO SEE IF OLD TEST GETS REPEATED 


:SAVE PC OF TEST THAT FAILED AND RO-RS 


006066 016637 000004 001460 -SAVO5: MOV 4 (SP) ,SAVPC sSAVE R7 (PC) 
:SAVE RO=-R5 


cc a ee ee a el ed eed eed ed ed od od = od = 8 ed od 
HHL RHRRHEHLHSHLSHRHSHSDS 


ARGO SRIRARU ASS 


006074 010537 001274 SVO5: MOV RS, SREG5 SAVE RS 

006100 010437 001272 MOV R4,$REG4 SAVE R4 
1446 006104 010337 001270 MOV R3,$REG3 :SAVE R3 
1447 006110 010237 001266 MOV R2,$REG2 SAVE R2 
1448 006114 010137 001264 MOV R1,$REG1 :SAVE R1 
1449 006120 010037 001262 MOV RO, $REGO : SAVE RO 
1620 006124 000002 RT] : LEAVE. 
O26 RESTORE RO-R5 
1454 006126 0137 001262 -RESOS: MOV SREGO,RO :RESTORE RO 
1455 006132 013701 001264 MOV $REG1,R1 sRESTORE R1 
1456 006136 013702 001266 MOV $REG2,R2 :RESTORE R2 
1457 006142 013703 001270 MOV SREGS,R3 :RESTORE R3 
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001272 
001274 


001313 


177400 
006406 
006404 
011122 
177770 
000060 


011164 
006404 
006405 
006405 


011164 
006402 


000012 


006404 
006406 


READ AN 


E 4 


PAGE : 


OCTAL NUMBER FROM THE TTY 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


MOV SREG4 RS SRESTORE R4 
MOV SREGS.RS SRESTORE 85 
RTI ;LEAVE 


sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


TYPE . SCRLF 

MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R3,-(SP) 
MOV R4,~-(SP) 
MOV R5,~(SP) 


ADD #2,12(SP) 


MOV (R1)+,WRDCNT 
MOVB (R1)+,CHRCNT 
MOVB (R1)+,SPACNT 
MOV a(R1)+,BINWRD 
CMPB #3, CHRCNT 
BNE 2$ 
BIC #177400, .BINWRD 
MOV BINWRD ,R4 
MOVB CHRCNT ,R5 
MOV #TEMP RO 
MOV R 
BIC #177770,R3 
ADD #060 ,R3 
MOVB R3,(RO)+ 
CLC 
ROR R4 
CLC 
ROR R4 
CLC 
ROR R4 
DEC R5 
BNE 
MOV #MDATA,R3 
MOVB -(RO) , (R3)+ 
DECB CHRCNT 
BNE 4$ 
TSTB SPACNT 
BEQ 
MOVB #040, (R35) + 
DECB SPACNT 

E $ 

LRB (R3) 
TYPE -MDAT 
DEC WRDCNT 
BNE $ 
MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+,R1 
MOV (SP)+,RO 


0043C2 
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000002 


006444 


000004 000002 


F 4 
READ AN OCTAL NUMBER FROM THE TTY 
WRDCNT: 0 
CHRCNT: O 
SPACNT=CHRCNT +1 
BINWRD: 0 


PAGE: 0044C2 


: TRAP DISPATCH SERVICE 

sARGUMENT OF TRAP IS EXTRACTED 

sAND USED AS OFFSET TO OBTAIN POINTER 
:TO SELECTED SUBROUTINE 


-SBTTL. TRAP DECODER 


ZL III III ICI TT TIT SOIT TOI TIOT IOI TOTO TIT SII ISI IIIA ASIII AIAN II 
>*THIS ROUTINE WILL PICKUP THE LOWER EYTE OF THE ‘‘TRAP’’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
>*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


$TRAP: MOV RO,-(SP) : SAVE RO 
MOV 2(SP) RO 3:GET TRAP ADDRESS 
TST -(RO) ; BACKUP BY 2 
MOVB (RO) RO 3:GET RIGHT BYTE OF TRAP 
ASL RO ;zPOSITION FOR INDEXING 
MOV STRPAD(RO),.RO ;; INDEX TO TABLE 
RTS RO ::GO TO ROUTINE 


>sTHIS IS USE TO HANDLE THE ‘‘GETPRI'’ MACRO 


STRAP2: MOV (SP) ,-(SP) 7z:MOVE THE PC DOWN 
MOV 4(SP),2(SP) >; zMOVE THE PSW DOWN 
RTI :zRESTORE THE PSW 


-SBTTL TRAP TABLE 


>*THiS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE “‘TRAP’’ INSTRUCTION. 


‘ ROUT INE 


$TRPAD: .WORD  $TRAP2 
$TYP 


E 3; CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
TRAP+2(104402) TTY TYPEIN CHARACTER ROUTINE 

SRDLIN ;;CALL=RDLIN TRAP+3(104403) TTY TYPEIN STRING ROUTINE 
SRDOCT ;; L=RDOCT TRAP+4(104404) READ AN OCTAL NUMBER FROM TTY 
-SCOP1 ;;CALL=SCOP1 TRAP+5(104405) CALL TO LOOP ON CURRENT DATA HAN 
-SAVO5 ;:CALL= TRAP+6(104406) CALL TO REGISTER SAVE ROUTINE 
-RESOS5 ;CALL=RESO5 TRAP+7(104407) CALL TO REGISTER RESTORE ROUTINE 
-MSTCLR ;; =MSTCLR TRAP+10(104410) CALL TO ISSUE A MASTER CLEAR 
-DELAY ;;CALL=DELAY TRAP+11(104411) CALL TO DELAY 
~ROMCLK ;;CALL=ROMCLK TRAP+12(104412) CALL 


12 ) CALL TO CLOCK ROM ONCE 
;,CALL=DATACLK TRAP+13(104413) CALL TO CLOCK DATA 


-D 
, ;;CALL=TIMER TRAP+14(104414) CALL TO DELAY A CLOCK TICK 


ATACLK 
TIMER 


08~JUN- 
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005720 
006160 


011226 
010000 


172522 


000207 
020000 


001216 


001216 
001203 


006746 


172520 


172514 
172474 


001203 


TRAP TABLE 


SINPUT 
-CONVRT ;;CALL=CONVRT 
. CNVRT 

- ADVANCE 


3: CALL=INPUT 
3; CALL=CNVRT 


PAGE: 0045C2 


TRAP+15(104415) CALL TO OCTAL # INPUT ROUTINE 
TRAP+16(104416) CALL TO 
TRAP+17(104417) CALL TO 


SEEK KEKE KKKKKEEKEKKKKKK 


pete HANDLER 


XBX : 


1$: 


TYPMSG: 


1$: 


ERRMSG: 
WRKO.FM: 


PC ,CKSWR 
XBX 
Nga 


4207 a$TPB 
#SW13,aSWR 


HALTS 
aici 
(SP) , SERRPC 
SERFLG 


<q SITEMB 
(R5) ,R4 

R4 

#177001 ,R4 
#SERRTB RS 
(R4)+, ERRMSG 


(R4)+,DATAHD 
(R4) ,DATABP 


, $C 
#-1,SERFLG 
ERRMSG 
WRKO.FM 


DATAHD 


;CHECK FOR SOFT SWR 


:DON'T WAIT IF TTY NOT READY. 
;PUSH_A BELL AT THE TTY 

;DELETE ERROR PRINT OUT? 

;BR IF NO PRINT OUT WANTED. 

;WAS THIS ERROR FOUND LAST TIME? 
:BR IF YES 

;RECORD BEING HERE 

;PREPARE HEADER 

:SAVE ALL PROC REGISTERS 

;GET THE PC OF ERROR 

:GET ADDRESS OF TRAP CALL 

:GET ERROR INSTRUCTION 

: GORY ERROR # FOR APT HANDLING 


:BR IF Y 
:DOES DATA TABLE EXIST? 
sBR IF YES. 


:SHOW IT 
sTire. PC. 


:SHOW IT 

:GIVE A CR/LF 

:NO MORE HEADER UNLESS NO DATA TABLE. 
1S Hg AN ERROR MESSAGE? 


YPE 
: ERROR MESSAGE 
“DATA HEADER? 
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006760 


000001 
001214 
004710 
004070 
172212 
000002 
001212 
000400 
002000 


001442 
001200 
172102 


002 


002 


007312 
000340 


6 
007174 


001336 
007006 


000042 


172164 
172154 
001206 


000024 
000026 


000024 


TRAP TABLE 


DATAHD: 0 


TYPDAT: 


1$: 


EXITER: 


1$: 


2$: 
ERTABO: 


XTSTN: 


$PWRDN: 


TYPDAT 


DATABP 
RESREG 


_ » SENV 
SITEMB,6$ 
PC ,SATY4 

0 

9$ 
Siecle 


@SWR 
EXITER 


2(SP) ,RO 
SERTTL 

-* oa 2 @SWR 
#SW10,aSWR 
2$ 

NEXT ,SLPADR 


#STACK,SP 
@$SLPADR 


PAGE : 


;BR IF NO 
s TYPE 
: DATA HEADER 
:DATA TABLE? 
;BR IF NO. 
; SHOW 
DATA TABLE 
; RESTORE PROC REGISTERS 
IS APT RUNNING ? 
SKIP APT CALL IF NOT. 
COPY ERROR # 
CALL APT SERVICES. 
ERROR # GOES HERE. 


LOCK HERE. 
sIF ACT-11 AUTOMATIC MODE, HALT!! 


sHALT ON ERROR? 

:BR IF NO HALT ON ERROR 

; SAVE RO 

s SHOW ERROR PC IN DATA LIGHTS 


HALT 

;GET RO 

:UPDATE ERROR COUNT 
:GOTO TOP OF TEST? 


:BR IF YES 

:GOTO NEXT TEST? 
:BR IF NO 

soel jae NEXT TEST 


RESET 
:GOTO SPECIFIED TEST 
:SLPADR 


-SBTTL POWER DOWN AND UP ROUTINES 


S RAEAEAAKEAEAAAKEERKEERAKEKEEEEKAKEAREREKEEKREREKEKEERERAEREREEKKAEEREKEEKE 


“ POWER a ROUT INE 
#SILLUP, Series x: 248 FOR FAST UP 


#540, 


) 
SP, SSAVR6 
#$PWR 


: PUSH @SWR ON STACK 


>;SAVE SP 
UP, @#PWRVEC :;SET UP VECTOR 


0046C2 


I 4 
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1686 007172 000776 BR 72 7 HANG UP 

1684 5 RARER ERA REE KERR EERE EERE KEE KERR 

1685 “ POWER UP ROUTINE 

1686 007174 012737 007312 000024 $PWRUP: MOV #SILLUP, SAPURVE C ;;SET FOR FAST DOWN 

1687 007202 015706 007316 MOV SSAVR6,S GET SP 

1688 7 005037 007316 CLR SSAVR6 ::WAIT LOOP FOR THE TTY 

1689 007212 005237 007316 1$: INC SSAVR6 :zWAIT FOR THE INC 

1690 007216 001375 BNE 1$ ::OF WORD 

1691 007220 104401 007556 TYPE -MPFAIL ; 

1692 007224 104417 007320 CNVRT ,PFTAB : 

1693 007230 105037 001203 CLRB SERFLG :CLEAR ERROR FLAG. 

1694 7234 005037 001216 CLR SERRPC : CLEAR LAST ERROR PC 

1695 007240 013701 002066 MOV KMCSR,R1 ; RESTORE DEVICE ADDRESS. 

1696 007244 005011 CLR (R1) ; CLEAR THE CSR. 

1697 7246 104410 MSTCLR 

1698 007250 012677 171764 MOV (SP)+,aSWR -:POP STACK INTO aSWR 

1699 007254 012605 MOV (SP)+,R5 3;;POP STACK INTO R5 

1700 007256 012604 MOV (SP)+,R4 ::;POP STACK INTO R4 

1701 007260 012603 MOV (SP)+,R3 : POP STACK INTO R3 

1702 007262 012602 MOV (SP)+,R2 3;zPOP STACK INTO R2 

1703 007264 012601 MOV (SP)+,R1 :z:POP STACK INTO R1 

1704 007266 012600 MOV (SP)+,R0 ;z;POP STACK INTO RO 

1705 007270 012737 007122 000024 MOV #SPWRDN , AAPWRVEC >: SET UP THE POWER DOWN VECTOR 

1706 007276 012737 000340 000026 MOV #340, QAPWRVEC +2 7;PRIO:7 

1707 007304 104401 TYPE : REPORT THE POWER FAILURE 

1708 007306 007556 SPWRMG: .WORD MPFAIL >:POWER FAIL MESSAGE POINTER 

1709 007310 000002 RTI 

1710 007312 000000 SILLUP: HALT 72 THE POWER UP SEQUENCE WAS STARTED 

1711 007314 000776 BR 72 3:3 BEFORE THE POWER DOWN WAS COMPLETE 

yar 007316 000000 SSAVR6: O 3;PUT THE SP HERE 

1714 007320 000001 PFTAB: 1 

1715 007322 003 002 -BYTE 3.2 

ya. 007324 001202 STSTNM 

1718 007326 . DELAY: 

1719 007326 012777 000020 172540 MOV #20 ,aKMP04 

1720 7334 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

1721 007336 121117 121111 s;POKE CLOCK DELAY BIT 

1722 007340 1$: 

1723 007340 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

1724 007342 121224 121224 :PORT4_IBUS*11 

1725 007344 032777 000020 172522 BIT #BIT4, aKMPO4 :1S CLOCK BIT SET? 

1726 007352 1772 BEO 1$ “BR IF 

1727 7354 2 RTI 

1728 

1729 007356 -MSTCLR: 

1730 007356 152777 000100 172504 BISS #B1T6,@KMCSRH :SET MASTER CLEAR 

1731 007364 142777 000300 172476 BICB #BIT6! 'BIT?7, @KMCSRH ;CLEAR MASTER CLEAR AND RUN 

Ue 007372 000002 RTI = RETURN 

1734 007374 -ROMCLK: 

1735 007374 152777 000002 172466 BISB #B81T1,@KMCSRH :SET ROMI 

1736 007402 013677 172470 MOV @(SP)+,@KMP06 “LOAD INSTRUCTION IN SEL6 

1737 007406 062746 000002 ADD #2,-(SP) “ADJUST STACK 
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1738 007412 032777 000100 171620 BIT #SW06,aSWR sHALT IF SWO6 =1 
1739 007420 001401 BEQ 1$ :BR IF SWO6 =0 
1740 007422 000000 HALT HALT BEFORE CLOCKING INSTRUCTION 
1741 007424 152777 000003 172436 1$: BISB #B1T1'BITO,@KMCSRH :CLOCK INSTRUCTION 
1742 007432 142777 000007 172430 BICB #B1T2'BIT1'BITO,@KMCSRH :CLEAR ROMO, ROMI. STEP 
ot 007440 000002 RT] 
1745 007442 .DATACLK: 
1746 007442 013637 011122 MOV a(SP)+, TEMP ;PUT TICK COUNT IN TEMP 
1747 007446 062746 000002 ADD #2,-(SP) “ADJUST STACK 
1748 007452 152777 000020 172410 1$: BISB #BIT4,@KMCSRH ;:SET STEP LU 
1749 7460 027777 1726402 172400 CMP @KMCSR,@KMCSR =: WASTE TIME 
1750 7466 142777 000020 172374 BICB #B1T4,@KMCSRH :CLEAR STEP LU 
1751 007474 005337 011122 DEC TEMP “DEC TICK COUNT 
1752 75 001364 BNE 1$ “BR IF NOT DONE 
1753 007502 000002 RTI : RETURN 
if 75 000001 3$: .BLKW 1 
1756 007506 . TIMER: 
1757 007506 013637 011122 MOV a(SP)+, TEMP :MOVE COUNT TO TEMP 
1758 007512 062746 000002 ADD #2,-(SP) :ADJUST STACK 
1759 007516 1$: 
1760 007516 104412 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1761 007520 021364 021364 :PORT4_IBUS* REG11 
1762 007522 032777 000002 172344 BIT #2. aKMPO04 :1S PGA CLOCK BIT CLEAR? 
1763 007530 001772 BEQ 1$ “BR IF YES 
1764 007532 2$: 
1765 007532 104412 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1766 007534 021364 021364 :PORT4_IBUS* REG11 
1767 007536 032777 000002 172330 T #2 ,aKMPO4 :1S PGA CLOCK BIT SET? 
1768 007544 001372 2$ “BR IF YES 
1769 007546 005337 011122 TEMP :DEC COUNT 
1770 007552 001361 1$ -BR IF NOT DONE 
taal 007554 = RETURN 
1773 007556 050200 051127 043040 IZ <200>/PWR FAILED. RESTART AT TEST / 
(2) 007614 042600 042116 050040 12 <300>/END PASS CZKCG / 
(2) 007636 051200 000 IZ <200>/R 
(2) 007641 200 047516 204 C1Z <500>/NO DEVICES PRESENT./ 
(2) 7666 044600 051516 312 C1Z <200>/INSUFFICIENT DATA!/ 
(2?) 007712 046200 041517 020113 CI1Z <200>/LOCK ON SELECTED TEST/ 
(2) 007741 103 051123 02007 C1Z /CSR: / 
(2) 007747 126 041505 020072 IZ /VEC: / 
(2) 007755 120 051501 042523 IZ /PASSES: / 
(2) 007766 051105 047522 051522 1Z /ERRORS: / 
(2) 007777 124 051505 020124 IZ /TEST NO: / 
(2) 010011 052 000 1Z 
(2) 010013 200 042523 020124 IZ <200>/SET SWITCH REG TO KMC11°S DESIRED ACTIVE./ 
(2) 010066 041520 020072 iz. #0: 7/ 
(2) 010073 200 020040 020040 II] <200>/ MAP OF KMC11 STATUS/ 
(2) 020200 020040 TI] <200>/ me 
(2) 010171 200 020040 041520 CII <200>/ PC CSR STAT1 STAT2 STATS/ 
(2) 01024 200 026455 SCIZ  <200>/m----- ween eee en- aenee-  ----=- 
(2) 010317 200 047510 020127 IZ <200>/HOW MANY KMC11'°S TO BE TESTED?/ 
(2) 010357 200 051503 020122 : -ASCIZ <200>/CSR ADDRESS?/ 
(2) 010375 200 042526 052103 VEC: eASCIZ <200>/VECTOR ADDRESS?/ 
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000176 
000001 
000007 
000207 


177777 
177777 
005535 
005546 


011434 
000015 


001240 
001336 
167772 
167762 


011432 


MODU: -ASCIZ 
LINE: -ASCIZ 
BM: CIZ 
CONN: -ASCIZ 
NOACT: .ASCIZ 
CONERR: .ASCIZ 
CNERR -ASCIZ 
KMCM: -ASCIZ 
MLDER -ASCIZ 
-EVEN 
KXSTATQ: 5 
-BYTE 
STMPO 
-BYTE 
STMP1 
-BYTE 
STMP2 
-BYTE 
STMP3 
STMP4 
EVEN 
TEMP: 0 
.=.+40 
MDATA: QO 
=,+40 
CKSWR: CMP 
BNE 
BITB 
BNE 
CMP 
BEQ 
CMP 
BNE 
1$: MOV 
MOV 
MOV 
MOV 
CKSWR1: CLR 
MOV 
TYPE 
CKSWR2: CNVRT 
OF TSW 
CKSWR3: TYPE 
CKSWR4: 
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<200>/BR PRIORITY LEVEL? (4,5,6,7)? 


<200>/WHICH LINE UNIT? 


IF NONE tYPE. NN", 


<200>/SWITCH PACH1 (DDCMP LINE #)?/ 
<200>/SWITCH PACA2 (BM873 BOOT ADD) ?/ 


<200>/IS THE LOOP BACK 


ONNECTOR ON?/ 


K C 
<200>/NO DEVICES ARE SELECTED/ 
<200><200>/KMC11 AT NONSTANDARD ADDRESS PC: / 
eA a lt F OUND / 


/ LOADING ERROR / 


6,3 
6,3 
6,5 
6,3 
6.2 


sBUFFERS FOR INPUT-OUTPUT 


sROUTINE USED TO CHANGE SOFTWARE SWITCH 
sREGISTER USING THE CONSOLE TERMINAL 





#SWREG , SWR 
CK 


, DMNEW 
Pc INCHAR 
#15 R3 


:1S THE SOFT SuR BEING USED? 
P1817 RUNNING UNDER APT? 

“WAS CTRL G TYPED? (7 BIT ASCII) 
sas CTRL'G TYPED? (8 BIT ASCII) 


7S R4 

:SET SOFT TYPE OUT FLAG 
:CLEAR NEW SWR CONTENTS 
:SET FLAG TO ALL ONES 
;TYPE “‘SWR= 


: TYPE OUT PRESENT CONTENTS 
:OF ot cue TCH REGISTER 


YPE 
:GET RESPONSE 
“WAS IT A CR? 


IF M8201 TYPE ‘1’, 


0049C2 


IF M 
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1818 011334 001424 BEQ 5$ ;BR IF YES 

1819 011336 022703 000012 CMP #12,R3 sWAS IT A LF? 

1820 011342 001416 BEQ 4$ ;BR IF YES 

1821 011344 022703 000025 CMP #25 ,R3 ;WAS IT CTRL U? 

1822 011350 001754 BEQ CKSWR1 ;BR IF YES(START OVER) 

1823 011352 022703 000007 CMP #7, ;1F CNTL G GET NEXT CHAR 

1824 0113556 001762 BEQ CKSWR4 

1825 011360 5004 CLR R4 >1T MUST_BE A DIGIT SO CLR FLAG 

1826 011362 042703 177770 BIC #177770,R3 sONLY O-7 ARE LEGAL SO MASK OFF BITS 

1827 011366 006302 ASL R2 ;SHIFT R2 3 TIMES 

1828 011370 006302 ASL R2 

ies) 011372 302 ASL R2 

18 0113574 050302 BIS R3,R2 sADD LAST DIGIT 

1831 011376 752 BR CKSWR4 :GET NEXT CHARACTER 

18352 011400 012766 002402 000006 4$: MOV #.START,6(SP) ;LF WAS TYPED SO GO TO START 

1835 011406 005704 5$: TST R4 :I1S FLAG CLEAR? 

1834 011410 001002 BNE 6$ : IF NOT DON’T CHANGE SOFT SwWR 

1835 011412 010277 167622 MOV R2,aSWR :1F YES THEN WRITE NEW CONTENTS TO SOFT SwR 

1836 011416 005037 011432 6$: CLR SWFLG ;CLEAR TYPEOUT FLAG 

1837 011422 012604 MOV (SP)+,R4 sRESTORE R4 

1838 011424 012603 MOV (SP)+,R3 ;RESTORE R35 

1839 011426 012602 MOV (SP)+,R2 sRESTORE R2 

+ oe 011430 000207 CKSWR5: RTS PC RETURN 

ere 011432 000000 SWFLG: 0 

1844 011434 105777 167604 INCHAR: TSTB asTKS 

1845 011440 100375 BPL ~4 

1846 011442 017703 167600 MOV @$TKB.R5 

1847 011446 105777 167576 TSTB a$TPS 

1848 011452 100375 BPL 74 

1849 011454 010377 167572 MGV R3,a$TPB 

1850 011460 042703 000200 BIC #B1T?7.R3 

+4 011464 000207 RTS PC 

1853 011466 000001 SOF TSW: 1 

1854 011470 006 002 YTE 6,2 

1855 011472 000176 SWREG 


Mm 4 
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1889 

1858 sROUTINE USED TO ‘‘CYCLE’* THROUGH UP TO 16 KMC11'S 
1859 : THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
1860 :AND RUNS THE SPECIFIED KMC11'S. THIS ROUTINE *MUST®« 
1861 7;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
1862 -SETUP NECESSARY. 

ies , 

1865 011474 005737 001470 CYEties: TSF KMACTV ;ARE ANY KMC11°S TO BE TESTED? 
1866 011500 001004 BNE 1$ “BR IF OK. 

1867 011502 104401 010725 TYPE ~NOACT sNO KMC11°S SELECTED! ! 

1868 011506 000000 HALT “STOP THE SHOW. 

1869 011510 000776 BR <2 “DISQUALIFY CONT. SW. 

1870 011512 000241 1$: CLC :CLEAR PROC. CARRY BIT 

1871 011514 006137 001500 ROL RUN “UPDATE POINTER 

1872 011520 005537 001500 ADC RUN “CATCH CARRY FROM RUN 

1873 011524 062737 000004 001504 ADD #4 MILK :UPDATE POINTER 

1874 011532 062737 000010 001502 ADD #10, CREAM “UPDATE ADDRESS POINTER. 
1875 011540 022737 002300 001502 CMP #KM.MAP+200, CREAM 

1876 011546 BNE KEEP GOING; NOT ALL TESTED FOR. 
1877 011550 012737 002100 001502 MOV #KM.MAP,CREAM :RESET ADDRESS POINTER. 
1878 011556 012737 002302 001504 MOV W#CNT.MAP,MILK :RESET PASS COUNT POINTER 
1879 011564 033737 001500 001470 2$: BIT RUN, KMACTV 71S THIS ONE ACTIVE? 

1880 011572 001747 BEQ 1$ -BR IF NO 

1881 011574 013700 001502 MOV CREAM,RO -GET ADDRESS POINTER 

1882 011600 013702 001504 MOV MILK,R2 :GET PASS COUNT POINTER 
1883 011604 012037 002066 MOV (RO) +, KMCSR *LOAD SYSTEM CTRL. REG 
1884 011610 011037 002056 MOV (RO) .KMRVEC =LOAD VECTOR 

1885 011614 042737 177000 002056 BIC #177000, KMRVEC :CLEAR UNWANTED BITS 

1886 011622 012037 002050 MOV (RO)+,STAT1 “LOAD STAT1 

1887 011626 012037 002052 MOV (RO)+,STAT2 :LOAD STAT 

1888 011632 012037 002054 MOV (RO)+,STAT3 :LOAD STAT 

1889 011636 012237 001324 MOV (R2)+,$PASS :LOAD PASS COUNT 

1890 011642 012237 001212 MOV (R2)+,SERTTL | :LOAD ERROR COUNT 

1891 011646 012700 MOV #2, >SAVE CORE THIS WAY! 

1892 011652 013737 00 002070 MOV KMCSR,KMCSRH 

1893 011660 005237 002070 INC 

1894 011664 013737 002070 002072 MOV KMCSRH,KMCTL 

1895 011672 005237 002072 INC KMCTL 

1896 011676 013737 002072 002074 MOV KMCTL.KMPO4 

1897 011704 060037 002074 ADD RO, KMPO4 

1898 011710 013737 002074 002076 MOV KMPOG , 

1899 011716 060037 002076 ADD RO, KMPO6 

1901 011722 013737 002056 002060 MOV KMRVEC,KMRLVL  :PTY LVL 

1902 011730 7 002060 ADD RO, KMRL VL : 

1903 011734 013737 002060 002062 MOV KMRLVL.KMTVEC :TX VEC 

1904 011742 7 002062 ADD RO, KMTVEC : 

1905 011746 013737 002062 002064 MOV KMTVEC,KMTILVL  :TX LVL 

1906 011754 060037 002064 ADD RO, KMTLVL 

1908 011760 032737 000002 001446 BIT #SWO1,STRTSW ;:1S TEST NO. SELECTED 

1909 011766 001447 BEQ 7$ -BR IF NO 

1910 011770 4$: 

1911 011770 005737 000042 TST ans2 :RUNNING IN AUTO MODE? 
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001313 


013762 


001202 
001202 
001206 
007636 
000002 
016400 
001312 


013762 
002066 
167062 


002100 
002300 


001472 
100 


002 
001470 
000001 


012554 
000001 


000002 
000004 


001446 


001206 


001446 


001306 


-BYTE 
-BYTE 


5$: 


6$: 


7$: 
8$: 
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PAGE : 
7$ :BR IF YES 
,SCRLF 
#TST1,RO 
(PC)+, (RO) 7;CMP FIRST WORD TO 12737 
(PC)+,a(PC)+ 
6$ ;BR IF NOT SAME 
STSTNM,2(RO) ;DOES STSTNM MATCH? 
6$ ;BR IF NO 
#STSTNM,4(RO) :;1S LAST WORD OK? 
6$ ;BR IF NO 
he ;I1T IS A LEGAL TEST SO DO I; 
#SWO1,STRTSW 
8$ 


(RO) + ;POP RO 
RO ,ATLAST+10 sAT END YET? 
5$ >BR 


: IF NO 
,SQUES 7;YES ILLEGAL TEST NO. 
4$ ;TRY AGAIN 


#TST1,$LPADR :PREPARE S$LPADR ADDRESS 
KMCSR,R1 ;R1 = BASE KMC11 ADDRESS 
@$LPADR :GO START TESTING. 


sROUTINE USED TO ‘‘AUTO SIZE*’ THE KMC11 


e 
a 
© 
. 
oo 
a 


AUTO.SIZE: 
RESET 


CSRMAP : 
1$: 


MOV 
CLR 


:CSR AND 
"NOTE: 


VECTOR. 

THE CSR MAY BE ANY WHERE IN THE FLOATING 
ADDRESS RANGE (160000: 164000) 
AND THE VECTOR MAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300:770) 


: INSURE A BUS INIT. 


#KM.MAP ,R2 ;LOAD MAP POINTER. 
(R2)+ : ZERO ENTIRE MAP 
#KM.END,R2 ;ALL DONE? 

1$ ;BR IF NO 

KMNUM ;SET OCTAL NUMBER OF KMC11°S TO 0 
#KM.MAP ,R2 :R2 POINTS TO KMC MAP 
KMACTV ;CLEAR ACTIVE 
#SWO0,STRTSW ; QUESTIONS? 

. +6 ;BR IF YES 

7$ : IF NO SKIP QUESTIONS 
#1.STMP4 >START WITH 1 


0052C2 
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001302 001472 
001313 


001306 


001304 


001304 
013506 
000024 
000027 
000011 


170777 


013506 
000021 


000022 
000116 
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12$: 


10$: 


50$: 


8$: 


9$: 
16$: 


0 
1 
STMP2 -KMNUM :KMNUM = HOW MANY 
: ;TYPE WHICH KMC IS BEING DONE 

:$TMP4 IS WHICH KMC 
STMP4 
: 
STMP3, (R2)+ :STORE CSR IN MAP 
. 
$TMP3, (R2) :STORE VECTOR IN MAP 

:ASK WHAT BR LEVEL 
PC INTTY :GET RESPONSE 
50S :BR IF LESS THAN 4 
#27 ,R3 
50$ :BR IF GREATER THAN 7 
#11.R4 -R4 = NUMBER OF SHIFTS 
R3 “SHIFT R3 LEFT 
R4 =DEC SHIFT COUNT 
4 :BR IF NOT DONE 
#170777.R3 :BIC UNWANTED BITS 
R3, (R2) :PUT BR LEVEL IN STATUS MAP 
8$ ; CONTINUE 

:RESPONSE IS OUT OF LIMITS 
10$ :TRY AGAIN 

:ASK WHICH LINE UNIT 
PC INTTY *GET REPLY 
#21 ,R3 ‘ee: 
30$ 
#22,R3 he tg 
31$ 
#116,R3 NT 
32$ 

:IF NOT A 1,2 OR N TYPE °'?"' 

16$ = TRY AGIAN 


0053C2 
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052722 
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000450 
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010000 


020000 
000002 


013506 
0001 51 


000116 


040000 
040000 


001304 


001304 
001302 
013114 
160000 
013206 


000006 
000006 


002000 
000004 
125252 


020000 
125252 


000004 


000004 


000006 
000004 


32$: BIS 
MP 


31$: BIS 
30$: TYPE 


BR 
17$: BIS 
BR 


18$: BIC 
19$: 


33$: 


7$: MOV 
2$: CLR 


21$ 


22$: MOV 


. 3 
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#BiT12,(R2)+ 
vag’ *« SBE7* 


3 
#B1T13,(R2) 
#B1T1,4(R2) 


PC INTTY 
#5 131,R 
*Ni6. R3 
18$ 


30$ 
#BIT14,(R2)+ 
19$ 
#B1IT14, (R2)+ 


0 
1 
STMP3,(R2)+ 


0 
’ 
ot 


5 

#B1T10,(R1) 
4(R1) 

Ale th il 


#BIT 
eeree 4(R1) 


R1,(R2)+ 


sSET 
:POP 


soe T 
sSET BIT1 IN STATS FOR HIGH SPEED MICRO-CODE. 


; ASK 
GET 


SN 


: TRY 


BIT 12 IN STAT2 IF NO LU 
OVER STAT2 AND STATS 


BIT 13 IN STAT2 IF M8202 


S deere LOOP=BACK IS ON 


sar “Th Y OR N TYPE °'?"" 
K.GAIN 


; TURNAROUND IS CONNECTED 


;NO 


TURNAROUND 


sSTORE SWITCH PAC IN MAP 


sSTORE SWITCH PAC IN MAP 
;POP OVER STATS 


; CONT INUE 
: SET FOR FIRST ADDRESS TO BE TESTED 


;SET FOR 
: CLEAR SELO 


: IF 


NON-EXISTANT DEVICE TIME OUT 


F KMC71 KMCSR S/B 0 
NO DEV ; TRAP TO 4. 


: CLEAR SEL6 


F KMC11 THEN KMRIC S/B =0! 


;BR 3 NOT KMC11 
:CLEAR SEL4 


‘a 
: WAS 


i: we TO SEL6 
IT WRITTEN? 


BNE ;IF NO IT IS NOT CRAM 
;AT THIS POINT IT IS ASSUMED THAT R171 HOLDS A KMC11 CSR ADDRESS. 


:STORE CSR IN CORE TABLE. 


PAGE : 


0054C2 


IF NO BIT 8 THEN NO KMC1 
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2080 012642 012711 001000 15$: MOV #BIT9,(R1) ;CLEAR LINE UNIT LOOP 
2081 012646 005061 000004 CLR R ;CLEAR PORT4 
2082 012652 012761 122113 000006 MOV #122113,6(R1) | ;LOAD INSTRUCTION (CLR DIR) 
2085 012660 052711 000400 BIS #B1 R sCLOCK INSTRUCTION 
012664 012761 021264 000006 MOV #021264,6(R1) | LOAD INSTRUCTION 
2085 012672 052711 000400 BIS #B1T8, (R1) sCLOCK INSTRUCTION 
012676 122761 000377 000004 #377 ,4(R1) :IS IT ALL ONES? 
2087 012704 001003 BNE +10 :BR IF NO 
912706 052712 010000 BIS #B1T12, (R2) sIF YES, NO LINE UNIT, SET STATUS BIT 
2089 012712 41 BR 
2090 012714 032761 000002 000004 BIT vie ae 4(R1) ‘iS gph A ONE? 
2091 012722 001406 BEQ F M8201 
2092 012724 052712 060000 BIS #1T13!B1T14, (R23 "M8202 ASSUME CONNECTOR 
2095 012730 052762 000002 000004 BIS #B1T1,4(R2) ;SET BIT1 IN STAT3 FOR HIGH SPEED MICRO-CODE. 
2094 012736 000427 BR 20$ > CONNECTOR ON) 
2095 012740 0352761 000010 000004 BIT #B1T3,4(R1) :IS MRDY SET 
2096 012746 001023 BNE 20$ BR IF +3 5 NO CONNECTOR (ON LINE) 
2097 012750 012761 000100 000004 MOV #B11T6,4(R1) sLOAD PORT4 
2098 012756 012761 122113 000006 MOV #122115,6(R1)  ;LOAD INSTRUCTION 
2099 012764 052711 000400 BIS #8 sCLOCK INSTRUCTION(SET DTR) 
2100 012770 012761 021264 000006 #021264,6(R1) LOAD INSTRUCTI 
2101 012776 052711 000400 BIS #B1T8,(R1) :CLOCK INSTRUCTION(READ MODEM REG) 
2102 0135002 032761 000010 000004 BIT #B1T3,4(R1) :IS MRDY SET NOW? 
2103 013010 001402 BEQ 2 IF NO CONNECTOR 
2104 013012 052712 040000 BIS #B1T14, (R2) :SET STATUS BIT FOR CONNECTOR 
2105 013016 005722 20$: TST (R2)+ :POP POINTER 
2106 013020 012761 021324 000006 MOV #021324.6(R1) | ;PUT INSTRUCTION IN PORT6 
2107 013026 012711 001400 MOV #81T9!BIT8, (R1) :PORT4_ LU 15 
2108 013032 156122 000004 BISB 4(R1), (R2)+ sSTORE DDCMP LINE # IN TABLE 
2109 013036 012761 021344 000006 MOV #021344 ,6(R1) :PORT6_ oo ION 
2110 013044 012711 001400 MOV #B1T8'BIT9, (R1) ; CLOCK” INSTR 
2111 0135050 156122 000004 BISB 4(R1) , (R2) + ; STORE BMB75 ADD IN TABLE 
2112 013054 005722 TST (R2)+ :POP OVER STAT3 
2113 013056 005011 CLR (R1) : CLEAR ROM! 
2114 0135060 005237 001472 INC KMNUM ;UPDATE DEVICE COUNTER 
2115 01 022737 000020 001472 CMP #20 ,KMNUM ;ARE MAX. NO. OF DEV FOUND? 
2116 013072 001410 BEQ 13$ >YES DON'T LOOK FOR ANY MORE. 
2117 013074 005011 3$: CLR (RI :CLEAR BIT 10 
2118 013076 005061 000006 CLR 6(R1) :CLEAR SEL 6 
2119 013102 062701 000010 14$: ADD #10,R1 sUPDATE CSR POINTER ADDRESS 
2120 013106 022701 164000 CMP #164000,R1 
2121 013112 00122 BNE 2$ ;BR IF MORE ADDRESS TO CHECK. 
2122 013114 005037 001470 13$: CLR KMACTV 
2125 013120 005737 001472 TST KMNUM sWERE ANY KMC11°S FOUND AT ALL? 
2124 013124 001423 BEO 5$ ;ERROR AUTO SIZER FOUND NO KMC11'S IN THIS SYS. 
2125 013126 013701 001472 MOV KMNUM R17 
2126 013132 010137 001476 MOV R1, SAVNUM ; SAVE NUMBER OF DEVICES 
2127 013136 000241 CLC 
2128 013140 006137 001470 ROL KMACTV ‘or ra” ACTIVE REGISTER OF DEVICES. 
2129 013144 005237 001470 INC KMACTV SET THE BIT 
2130 013150 005301 DEC R1 
2131 013152 1371 BNE 4$ ;BR IF MORE TO GENERATE 
2132 013154 012737 000004 MOV #6 ,aH4 :RESTORE TRAP VECTOR 
2133 013162 013737 001470 001474 MOV KMACTV,SAVACT ;SAVE ACTIVE REGISTER 
2134 013170 000137 01 oers JMP VE CMAP :GO FIND THE VECTOR NOW. 
2135 013174 104401 00764 TYPE »MERR2 :NOTIFY OPR THAT NO KMC11°S FOUND. 
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013216 
013220 


013222 
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RELEEELERESELEES 
Sgarennseneeeess 


005000 
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013102 


002 
000001 
000340 
013414 
002100 
000300 
000302 
000004 
001000 


001470 
001276 


000012 
013472 


00200 
001000 
121111 
001400 
000002 
013472 
005300 
000010 
000002 
000007 
013474 


170777 
000002 


013404 
004134 


001446 


000022 
000020 


001276 


177776 
000004 
000006 


177776 
000002 


000002 


000020 


6$: 


WHICH: 


VECMAP: 


1$: 


2$: 


7$: 


6$: 
3$: 


4$: 


5$: 


E 5 


POWER DOWN AND UP ROUTINES 


PAGE: 0056C2 
RO ;MAKE DATA LIGHTS ZERO 
:;STOP THE SHOW 
72 = DISABLE CONT. SW. 
#14$, (SP) “ENTEED BY NON-EXISTANT TIME-OUT. 
sRETUnN TO MAINSTREAM 
2.2 
elt 
#340 ,a422 sSET IOT TRAP PRIO TO 7 
#4$ ,a#20 = SET IOT TRAP VECTOR 
#KM. R2 ;SET SOFTWARE POINTER 
#300,R0 ; FLOATING BL ny START HERE. 
#302,R1 =PC OF IOT INSTR 
R1, (RO) + :START FILLING VECTOR AREA 
#4,(R1)+ “WITH -+2; IOT 
(RO) +, (R1)+ “ADD 2 TO RO +R1 
R1,#1000 
1$ 3;BR IF MORE TO FILL 
KMACTV,$STMPO :;STORE TEMPORALLY 
STMPO =BRING OUT A BIT 


-BR IF ALL DONE 
#12,R4 =R4 IS INDEX REGISTER 
BRLVL (R4) , PS “SET PS TO 7 
#200.4(R1) 


#B1T9,(R1) 
#121111,6(R1) 
4 T9!BIT8, (RI) 


> SET ROMI 
:PUT INSTRUCTION IN PORT6 
tat AN INTERRUPT 





72 sFOR TIME TO INTERUPT 
#2 ,R4 :GET NEXT LOWEST PS LEVEL 
BR IF R4 = 0 
BRLVL(R4) ,PS MOVE NEXT LevEN LEVEL IN PS 
#5300, 2(R2) NO INTERUPT ASSUME 300 AT LEVEL 5 AND FIX KMC11 
(R1) ;CLEAR ROMI 
#10 ,R2 :POP SOFTWARE POINTER 
sKEEP GOING 
(SP) ,2(R2) ;GET VECTOR ADDRESS 
#7 ,2{(R2) ;CLEAR JUNK 
BRLVL+2(R4),R5 ;:GET BR LEVEL OF KMC11 
R5 sSHIFT LEVEL 4 PLACES 
R5 TO THE LEFT FOR THE 
Hf: * STATUS TABLE 
#170777,R5 ;CLEAR UNWANTED BITS 
R5, 2(R2) =PUT BR LEVEL IN STATUS TABLE 
(SP). ah :POP IOT JUNK OFF STACK 
#33, ( :SET FOR RETURN 


; RESTORE SCOPE VECTOR 


#$SCOPE ,a#20 
PC ALL DONE WITH ‘AUTO SIZING’ 


a 
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165532 


165526 
165524 


165520 
000240 


013754 


013754 


013756 


F 5 


POWER DOWN AND UP ROUTINES 


BRLVL: 


INTTY: 


APT .SIZE: 


1$: 


SET 


$TPB 
-> jl te 


RO,-(SP) 


SBASE ,BAS 
SVECT1,VECTR 


SVECT1+1,PRIRTY ; 


SAVE 
; SAVE THE ACTIVE REGISTER 
; GET ADDRESS OF FIRST DEVICE DESCRIPTOR WORD 
; GET POINTER TO DEVICE MAP 
; CLEAR DEVICE MAP 


SDEVM,.KMACTV 
KMACTV,SAVACT 


pe ee 
aids TRS) 


(R 
PRIRTY,(R3) 
(R 


( 

VECTR, (R3)+ 
(R2)+,(R3)+ 
(R3)+ 


2$ 
#10,BASE 
#10,VECTR 


sWAIT FOR DONE 
sPUT CHAR IN R3 


sWAIT UNTIL PRINTER IS READY 


sECHO CHAR 
:MASK OFF LOWER CASE 
>RETURN 


;zPUSH RO ON STACK 
;zPUSH R1 ON STACK 
;sPUSH R2 ON STACK 
; sPUSH R3 ON STACK 


Py 
e 
_ 
ce 
e 
e& 
2 
e 
a 
e 
ae 
g 
e 
e 
F 
ca 
- 
e 
= 
e 
© 
vv 
@ 
° 
e 
s 
e 
e 
e 
e 
e 


Sy THE LOCAL VARIABLE 


NO. OF D E 
GET EXTRA INFO, BITS POINTER 
BASE CSR AD 
GET THE VECTOR 
GET THE PRIORIT 


Y 
THE KMC*S SELECTED ACTIVE 


WHOLE DEV.MAP CLEARED? 
THEN 


; GO ON. 
> RESTORE a. 


; SET THEM IN RIGHT POSITION 


; GET THE VECTOR IN STATI. 

: GET THE STAT2 FROM DDWXX 
SKIP OVER STATS 

; COUNT BY 1 


? 


; ALL D 
; INCREMENT BASE CSR ADDRESS BY 10 
; INCREMENT VECTOR ADDRESS BY 10 


PAGE : 


0057C 
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2248 013740 000747 BR 1$ ; SET THE NEXT MAP ENTRY 

2249 013742 2$: 

2250 013742 012603 MOV (SP)+,R3 ;sPOP STACK INTO R3 

2251 013744 012602 MOV (SP)+,R2 :sPOP STACK INTO R2 

2252 013746 012601 MOV (SP)+,R1 ;sPOP STACK INTO R1 

2255 013750 012600 MOV (SP)+,RO ;sPOP STACK INTO RO 

2254 013752 000207 RTS PC ; RETURN 

2255 013754 000000 VECTR: .WORD 0 

2256 013756 000000 BASE: .WORD OQ 


2257 013760 000000 PRIRTY: .WORD 0 
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2258 

2259 

2260 {AAR KKEKKKEKEKKKKKKKKKKKKKKK TEST ] cee 

2261 SPREE RUNNING FLAG MODE DATA TEST 

2262 * TRANSMIT A MESSAGE AND VERIFY THE RECEIVED DATA 

2265 : INE UNIT LOOP IS SET FOR THIS TEST. 

2264 L FOLLOWING TESTS ARE FREE RUNNING AND ARE PERFORMED 

2265 ONLY ON KMC'S WITH LINE UNITS. IF YOU WISH TO PERFORM 

2266 :*THESE FREE RUNNING TESTS ON A KMC (NORMALLY THE FREE RUNNING TESTS 

2267 ;*WILL RUN BY LOADING AND STARTING DZKCG 

2268 ;* WITH SWITCH 7 = 1 

2269 SAKE ERE ERR RRR 

2270 

tal TEST 1 

2273 DIO RCI II ISIC IOI RIOT IOI I ITOTOS SOARS TTOI A A He tate 

2274 013762 000004 TST1: SCOPE 

2275 013764 012737 000001 001202 MOV #1,$TSTNM ; LOAD "os NO. OF THIS TEST 

2276 013772 012737 015006 001442 MOV #TST2,NEXT POINT TO THE START OF NEXT TEST. 

2277 :R1 CONTAINS BASE KMC11 ADDRESS 

2278 ; $SKIPT 14$ 

2279 014000 004737 022474 JSR PC ,LDRVRF sFIRST TEST LOAD & VERIFY. 

2280 014004 013700 021360 MOV RCOUNT ,RO ay RECEIVER BUFFER 

2281 014010 062700 000002 ADD #2 ,R0 CLEAR 2 MORE LOCATIONS 

2282 014014 012702 021362 MOV #RBUF .R2 “CLEAR OUT RECEIVE BUFFER 

2285 014020 105022 10$: CLRB (R2)+ CLEAR BUFFER 

2284 014022 005300 DEC RO ; DONE YET 

2285 014024 001375 BNE 10$ ; 

2286 014026 005037 021306 CLR TFLAG ;SET TFLAG TO 0 

2287 014052 005037 021310 CLR RFLAG :SET RFLAG TO 0 

2288 014036 012711 040000 MOV #81714, (R1) sMASTER CLEAR 

2289 ; BIT #B1T15,STAT1 ; CRAM? 

2290 ; BEQ +6 :BR IF NO 

2291 014042 012711 100000 MOV #81T15,(R1) : IF CRAM SET RUN 

2292 014046 105227 000000 INCB #0 ; DELAY 

2293 014052 001375 BNE 74 ; DELAY 

2294 014054 005037 011122 CLR TEMP sGET SET TO DELAY 

2295 014060 005711 1$: TST (R1) sRUN SET? 

2296 014062 100405 BM] +14 :BR IF YES 

2297 014064 005237 011122 INC TEMP s INC DELAY 

2298 014070 001373 1$ :BR_IF NOT DONE 

2299 014072 104014 ERROR 14 sERROR RUN NOT SET 

2500 014074 000771 BR 1$ ; TRY AGAIN 

2301 014076 052711 004043 BIS #4043, (R1) sBASEMC I, LU LOOP 

2302 014102 005037 011122 CLR TEMP GET SET TO DELAY 

23503 014106 105711 2$: TSTB (R1) sRDI SET? 

2504 014110 100404 BMI +12 :BR IF YES 

2305 014112 005237 011122 INC TEMP ; INC DELAY 

23506 014116 001373 BNE 2$ sBR IF NOT DONE 

2307 014120 104014 ERROR 14 sERROR,RDI NOT SET 

23508 014122 012761 021430 000004 MOV #BASEMC,4(R1) SET UP BASEMC ADDRESS 

2309 0141 005061 000006 CLR 6(R1) ; CLEAR gal 

2310 014134 142711 000040 BICB = #40, (R1) CLEAR RQ! 

2311 014140 005037 011122 CLR TEMP GET SET TO DELAY 

2312 014144 105711 3$: TSTB (R1) :1S RDI GONE? 


2313 014146 100020 BPL 8$ ;BR IF YES 
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011122 
000002 


000004 
000006 
015006 


000041 
000006 
000040 
000044 
011122 
011122 
021362 
021360 
000040 
011122 
011122 
000040 
011122 
011122 
021314 
021312 
000040 
011122 


011122 


011122 
OooDS 


011122 
001276 


001302 
001304 


000004 
000006 


000004 
000006 


001276 


FREE RUNNING TESTS 


18$: 


8$: 


64$: 


65$: 


4$: 


5$: 


6$: 


7$: 


16$: 
11$: 


TEMP 
3$ 
2(R1) 
18$ 

4(R1) ,$TMP2 


6(R1),$TMP3 
16 


PAGE : 


; INC DELAY 

:BR IF NOT DONE 

71S THERE A CNTL O ERROR 
:BR IF NO 

;SAVE SEL4 FOR TYPEOUT 
sSAVE SEL6 FOR TYPEOUT 


:CNTL O ERROR 
;FATAL ERROR STOP 


sERROR RDI STILL SET 
+ ASK FOR CNTL I 


“CLEAR RQ] 


“IS R 


: LA 

:BR IF DELAY NOT DONE 
sERROR RDI NOT SET 
:LOAD REC BA 

;LOAD REC COUNT 
[CLEAR ROI 

:GET SET TO DELAY 
:RDI GONE? 


“BR IF YES 
: INC DELAY 
-BR IF NO DONE 
SERROR RDI STILL SET 
; T BA/CC 


I 
sGET SET TO DELAY 
SET? 


EAR RQI 
3H SET TO DELAY 

DI GONE? 
;BR IF YES 
> INC DELAY 
;BR IF NOT DONE DELAY 
sERROR RDI mitt Pacis 
:GET SET TO DELA 
;GET SET FOR LONG DELAY 
RDO SET? 
:BR IF Se 
; INC DELA 
;BR IF DELAY NOT DONE 
;DEC DELAY COUNT 


0060C 2 


08~J wth 07:54 PAGE 4 


CZKCGA.P 


papa et et pe 
Bites 
Ms Wh— 
elelelelelelelelelelelelelolelelo) 


2589 


LESES 


08-JUN-78 07: 753 


RANOE 


fNSNO 
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000002 


000004 
021306 


177777 
000001 


021314 
021312 


000207 
021310 


177777 
000001 


021562 


021560 


000207 
021310 


021306 


022442 
014744 


001300 


000002 
021306 
000002 
000004 


000006 


000002 


021310 
000002 
000004 


000006 


000002 


FREE RUNNING TESTS 


17$: 


12$: 


13$: 


9$: 


15$: 


4 
#BI1T2,2(R1) 
13$ 
TFLAG 
. +4 
14 


#-1,TFLAG 
#B1T0,2(R1) 
. +4 


i4 
#TBUF ,4(R1) 
+4 

i4 
TCOUNT,.6(R1) 
+4 

14 
#207,2(R1) 
15$ 

RFLAG 

.+4 

i4 
#-1,RFLAG 
#81T0,2(R1) 
+4 

14 

#RBUF ,4(R1) 
+4 


14 
RCOUNT ,6(R1) 


14 
#207,2(R1) 
RFLAG 

16% 

TFLAG 


PAGE : 


;BR_ IF NOT DONE DELAY 
sERROR RDO NOT SET 
;SAVE SEL2 

;BR IF 


;REC OR XMiT? 

:BR IF REC 

sFIRST TIME HERE? 

;BR IF YES 

sERROR MULTIPLE XMIT DONES 
sSET TFLAG TO -1 

-IS IT CONTROL O 

:BR IF NO 


;XMIT ERROR 

>XMIT 3A CORRECT? 

:BR IF YES 

:XMIT BA ERROR 

s COUNT OK? 

:BR IF YES 

>XMIT COUNT ERROR 
sCLEAR RDO AND BITS 0-2 
: CONTI 


NUE 
sFIRST TIME HERE? 
:BR IF YES 
;ERROR MULTIPLE REC DONES 
sSET RFLAG TO -1 
343 24 CNTL O 
>BR IF NO 


sRECEIVE ERROR 

sREC BA CORRECT? 

:BR IF YES 

sREC BA ERROR 

: COUNT OK? 

:BR IF YES 

sREC COUNT ERROR 

sGET SET TO CHECK DATA 
:R2 POINTS TO GOOD DATA 


:R3 POINTS TO RECEIVE DATA 
OR TYPEOUT 


DONE 
> THIS SHOULD BE 0, ELSE 
:1T RECEIVED TO MUCH!! 
;CLEAR RDO AND BITS 0-2 
REC DONE? 
BR IF NO 
;XMIT DONE? 
;BR IF NO 


= SHUTDOWN KMC 
:POINTER TO EXPECTED SOFT COUNTS 


00612 
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2426 014722 012701 021433 

2427 014726 012702 000010 

2428 014 122021 

2429 0147 001007 

2430 014736 005302 

2431 014740 001374 

2432 014742 000421 

24335 014744 000 000 

2434 014747 000 000 

2435 014752 000 000 

2436 014754 113737 021433 

2437 014762 113737 021435 

2438 014770 113737 021437 

2439 014776 113737 021441 

2440 015004 104017 

2441 015006 

2442 015006 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 015006 000004 

2455 015010 012737 000002 

24 015016 012737 015200 

2457 

2458 

2459 015024 004737 022030 

2460 015030 004537 022410 

2461 015034 021314 

2462 015036 000044 

2463 015040 012700 000010 

2464 015044 012703 000015 

2465 015050 5037 011122 

2466 015054 105761 000002 

2467 015066 100407 

2468 015062 005237 011122 

2469 015066 001372 

2470 015070 005303 

2471 015072 001370 

2472 015074 104014 

2473 015076 000431 

2474 015100 132761 000001 

2475 015106 001002 

2476 015110 104014 

2477 = 015112 000423 

2478 015114 012705 000004 

2479 015120 016104 000006 

2480 015124 020504 

2481 015126 14 


001202 
001442 


000002 


218: 
22$: 


253: 


238: 


243: 
14$: 
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FREE RUNNING TESTS 


MOV #BASEMC+3,R1 sPOINTER TO ACTUAL COUNTS 
a ; COUNT 


CMPB (RO)+,(R1)+ :COMPARE SOFT ERROR COUNTS 

BNE 23$ : IF ERROR BR 23$ 

DEC R2 :DEC COUNT 

BNE 22$ oe rae CHECKING IF NOT DONE 
24$ ALL COUNTS OK, GET OUT 

-BYTE 0,0,0,0,0,0,0.0 ;EXPECTED ERROR COUNTS 

MOVB BASEMC+3,$TMP1 

MOVB BASEMC+5 , STMP2 

MOVB BASEMC +7’, $TMP3 

MOVB BASEMC +11, $TMP4 

ERROR 17 

; SCOPE ;SCOPE THIS TEST 


{RARER ERKKEKKKKKKKKKKKKKKK TEST 2 cuca cece each 
> *OVERUN TEST 

>*IN FREE RUNNING MODE SEND MESSAGE WITH NO RECEIVE 

> *BUFFER AVAILABLE, VERIFY THAT AN OVERRUN ERROR OCCURS 


fT AAA AERAEKAEKKAEARKRKAEEAKREKKEKKEEKEEREEKAKEREREKEEEREKKKKKKKKKE 


ss RRRRRRERERRRR ERE RER EERE RRR ERER EERE RERERREEREREEERR RRR EERE 


TST2: 


1$: 


11$: 


MOV #2,STSTNM 
MOV #TST3,NEXT 


$SKIPT 10$ 


; LOAD THE NO. OF THIS TEST 
: POINT TO THE START OF NEXT TEST. 
zR1 CONTAINS BASE KMC11 ADDRESS 


JSR PC ,BASELD LOAD KMC BASEMC ADDRESS 
toys R5,XFRELD ‘A xm T BA/CC 





44 =C 
MOV #10,RO RO = RETRANSMISSION COUNT 
MOV #15,R3 :DELAY COUNT 
CLR TEMP “CLEAR DELAY COUNTER 
TSTB. ~—s-_- 2¢R1) -IS RDY O SET? 

I +20 :BR IF SET 
INC TEMP = INC DELAY COUNTER 
BNE 1$ ‘BR IF NOT 
DEC R3 
BNE 1$ DONE 
ERROR 14 “ERROR, RDY O NOT SET 
BR 10$ -GET OUT 
BITB #BIT0,2(R1) “IS IT CNTL 0? 

11$ -BR IF YES 

ERROR 14 =ERROR, NOT CNTL O 
BR 10$ T! - 
may #B1T2.R5 “PUT | EXPECTED IN R5 
MOV 6(R1) RS *PUT ‘‘FOUND'' IN R4 
CMP R5.R4 :1S ORUN SET? 
BEQ 12$ -BR IF YES 


006202 
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015200 
015202 
015210 
2509 015216 
015220 


000004 
012737 
012737 


104410 
004737 
004537 
021362 
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000001 


000207 
011122 


022442 


000207 
011122 


000003 
015336 


022030 
022356 
022410 
000015 
011122 
000002 
011122 
000001 


000020 
000006 


022442 


000002 


000002 


001202 
001442 


000002 


FREE RUNNING TESTS 


12$: 


#1,R4 


13$ 


15 
#207,2(R1) 
TEMP 

RO 

1$ 

PC, SHUTDOWN 
#207,2(R1) 
TEMP 


PAGE : 


;DATA CK ERROR? 
;BR IF YES 


sERROR, ORUN NOT SET 

:CLEAR RDO 

sRESET DELAY 

>DEC RETRANS COUNT 
OUNT INUE 


; SHUTDOWN KMC 
;SCOPE THIS TEST 
: IGNOR THIS ERROR 
sRESET DELAY 

CONT INUE 


TAREE TEST 35 eA 
>*LOST DATA TEST 
;*IN FREE RUNNING MODE SEND A MESSAGE LONGER THAN THE RECEIVE 
yo shel VERIFY THAT A LOST DATA ERROR OCCURS. 


SERA EKKKEKKEEKEKCKEEEKEKEKKEEKEEKEEREKEKKKKKKKKKKKKKKKh 


SEERA KEARKEKEKKKEEEKEEKEEKEKEEEEKEEEERKEEEKKKKKKKKKKKKRKE 


TST3: 


1$: 


11$: 


12$: 


; vest 3 

SCOPE 

MOV #3,.$TSTNM 
MOV #1ST4,NEXT 
MSTCLR 

$SKIPT 10$ 

JSR PC ,BASELD 
JSR R5..RFRELD 
RBUF 

20 

JSR RS. XFRELD 
TBUF 

44 

CLR EMP 

TSTB ~—-_- 2¢R1) 

BMI +20 

INC TEMP 

BNE 1$ 

DEC R3 

BNE 1$ 

ERROR 14 

BR 10$ 

BITB #BITO,2(R1) 
BNE 11$ 

ERROR 14 

BR 10$ 

MOV #BIT4.RS 
MOV 6(R1) .R4 
CMP RS_R4 

BEQ 12$ 

ERROR 15 

JSR PC, SHUTDOWN 


; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
:MASTER CLEAR KMC11 


;LOAD KMC BASEMC ADDRESS 
— RECEIVE BA/CC 


366 

sLOAD XMIT BA/CC 
;BA 

:CC 

:DELAY COUNT 


:CLEAR DELAY COUNTER 
:IS RDY O SET? 
F SET 


$ INC DELAY COUNTER 
F NOT DONE DELAY 

"DEC DELAY COUNT 

:BR IF DELAY NOT DONE 

ERROR, RDY O NOT SET 

GET OUT 

IS IT CNTL 0? 

:BR IF YES 

ERROR NOT CNTL O 

:CONTINUE 

:PUT LEXPECTED'” IN RS 

:PUT "'FOUND'' IN RG 

{1S LOST DATA SET? 


ERROR, LOST DATA NOT SET 
: SHUTDOWN KMC 


0063C2 
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015336 


015554 
015356 
015362 


015464 
015466 


000004 
012737 
012737 


104410 
004737 
004 
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1202 


000004 00 
015464 001442 


022030 
022410 


000015 
011122 
000002 


011122 


000001 
000400 
000006 


022442 


000005 001202 


000002 


FREE RUNNING TESTS 


10$: 


; SCOPE 


PAGE : 


;SCOPE THIS TEST 


5 RARER EERE KKKKKKKKRKKH TEST 6 ck aeee eee kehenhhhene 


; * TRANSMIT NON-EXISTENT nana TEST 


>*IN FREE RUNNING MOD 


LOAD A_ TRANSMIT BA THAT WILL TIME OUT 


pe ore vi THAT A NON-EXISTENT MEMORY ERROR OCCURS 


SARA ERAEAAER AKER KKKKAHAHhE 


° 
ST RAR RARER KKKEREKKEKKEKEKEKKEKEEREEEEEEEEKKKKKKKKKKKKhh 


TST4: 


1$: 


118: 


10$: 


s TEST 4 

SCOPE 

MOV #4 ,$TSTNM 
MOV #TSTS.NEXT 
MSTCLR 

S$SKIPT 10$ 

JSR PC ,BASELD 
JSR R5,XFRELD 
177320 

140044 

MOV #15,R3 
CLR TEMP 

TSTB 2(R1) 

BM! +20 

INC TEMP 

BNE 1$ 

DEC R3 

BNE 1$ 

ERROR 14 

BR 10$ 

BITB #B1T0,2(R1) 
BNE 11$ 
ERROR 14 

BR 10$ | 
MOV #B1T8,R5 
MOV 6(R1) ,R4 
CMP R5,R4 
BEQ +4 
ERROR 15 

JSR PC , SHUTDOWN 
; SCOPE 


; LOAD THE NO. OF THIS TEST 
POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
:MASTER CLEAR KMC11 


LOAD KMC BASEMC ADDRESS 
a xm T BA/CC 


ste 

:DELAY COUNT 

>CLEAR DELAY en 

:IS RDY O SET? 

:BR IF SET 

: INC DELAY COUNTER 

7BR IF NOT DONE DELAY 
LAY COUN 


sERROR, RDY O NOT SET 
:GET OUT 

:IS If CNTL 0? 

7BR IF YES 

;ERROR, NOT CNTL O 

; CONT INUE 

PUT EXPECTED'’ IN RS 
:PUT "FOUND'’ IN R4 





; SHUTDOWN KMC 
:SCOPE THIS TEST 


[ARaaaeneeeekakanakaakKkkeek TEST 5 eax eee aaa e eee ee eee eeeeenede 


;*RECEIVE NON-EXISTENT MEMORY T 
>*IN FREE RUNNING MOD 


. LOAD A 


ST 
RECEIVE BA THAT WILL TIME OUT 
ROR OCCURS 


;*VERIFY THAT A NON-EXISTENT MEMORY ER 


J TARA RAERAAREKERAERAKARAAEKEEAEREEERAAERAEREEARARAARERERARRARR RED 


PETTITTE TIE LETE LETTE LLL E TLL TTT UTC TTT TTT Tete 


TST5: 


SCOPE 
MOV 


#5, $TSTNM 


; LOAD THE NO. OF THIS TEST 


0064C2 





O8-JUN-78 07:54 PAGE 53 


CZ2KCGA.P11 
2594 015474 
2595 
2596 015502 
2597 
2598 015504 
2599 015510 
2600 015514 
2601 015516 
2602 015520 
2603 015524 
2604 015526 
2605 0155 
2606 015534 
2607 015540 
2608 015544 
2609 015546 
2610 015552 
2611 015554 
2612 015556 
2613 015560 
2614 015562 
2615 015564 
2616 015572 
2617 015574 
2618 015576 
2619 015600 
2620 015604 
2621 015610 
2622 015612 
2623 015614 
2624 015616 
2625 015622 
2626 
2627 
2628 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 015622 
2638 015624 
2639 015632 
2640 
2641 015640 
2642 
2643 015642 
2644 015646 
2645 015652 
2646 015654 
2647 015656 
2648 015662 
2649 015666 


012737 
104410 


000004 
012737 
012737 


104410 


00 
105761 
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015622 
022030 
022356 
022410 
000015 
011122 
000002 
011122 


000001 


000400 
000006 


022442 


000040 
011122 
000002 


001442 


000002 


001202 
001442 


11$: 


10$: 


FREE RUNNING TESTS 


MOV 


MSTCLR 
$SSKIPT 


#TST6,NEXT 


10$ 
PC ,BASELD 
R5,RFRELD 


R5,XFRELD 


and and 
os 


T0,2(R1) 


eda 
_— 


8.R5 
),R4 
R4 


zo 
Wie Wis 
sss 


1 
PC. SHUTDOWN 


PAGE : 


; POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
sMASTER CLEAR KMC11 


;LOAD KMC BASEMC ADDRESS 
1 oe RECEIVE BA/CC 


stC 

;LOAD XMIT BA/CC 

;BA 

2<¢ 

;DELAY COUNT 

;CLEAR DELAY COUNTER 
:I1S RDY O SET? 

;BR IF SET 

; INC DELAY COUNTER 


;ERROR, RDY O NOT SET 
ET OUT 


3G 

31S IT CNTL 0? 

sBR IF YES 

s;ERROR, NOT CNITL O 

; CONT INUE 

sPUT “EXPECTED’’ IN RS 
;PUT “FOUND'’ IN R4 
71S NON-EX-MEM SET? 
:BR IF YES 

ZERROR NON-EX-MEM NOT SET 
; SHUTDOWN KMC 

:SCOPE THIS TEST 


{RAR RAEAAAKARERRAKKRKRKKHRKKRKER TEST 6 eee een eee eee eee ekeeeeee 


: *PROCESSOR ERROR TEST 
>*IN FREE RUNNING MODE 


O A BASEMC TRANSFER REQUEST AFTER A 


- D 
: *BASEMC HAS BEEN SET UP, VERIFY THAT A PROCESSOR ERROR OCCURS. 


f TERRA RAERAKAAKEAARERAAKEAERAAEEAREAKREEKREAPRAAKEAERREARERRKEKEE 


’ 
- - RRERKREKKEAKAAAAAAAERARARKEKKEAAEARRERKAEAERAKARAEKRAARAKEKRAEAEEREREREEE 


TST6: 


13$: 


SCOPE 


#6,$TSTNM 
#TST7 NEXT 


10$ 

PC _BASELD 
#43,(R1) 
(R1) 

#40, (R1) 
TEMP 
2(R1) 


; LOAD THE NO. OF THIS TEST 

; POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
sMASTER CLEAR KMC11 


;LOAD BASEMC ADDRESS 
72ND BASEMC REQUEST 
sRDI SET? 

:BR IF NO 

;CLEAR RQI 

:GET SET TO DELAY 
*-RDO SET? 


0065C2 
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015672 
6 


015740 
015742 
015750 


015756 


000004 
012737 
012737 


104410 
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011122 
000001 


001000 
000006 


000007 
016056 


022030 
000046 
000040 
011122 
000002 
011122 
000001 


001000 
000006 


000002 


001202 
001442 


000002 


FREE RUNNING TESTS 


INC TEMP 
BNE 13$ 
ERROR 14 
3$ 
14$: BITB #B1T0,2(R1) 
E 1$ 
ERROR 14 
BR 10$ 
11$: MOV #BIT9,R5 
MOV E(R1) ,R4 
CMP R5,R4 
BEQ +4 
ERROR 15 


10$: : SCOPE 


PAGE : 


;BR IF YES 

: INC DELAY 

7BR IF NOT DONE DELAY 
s ERROR, RDO NOT SET 
-TRY AGAIN 

:IS IS CNTL 0? 

:BR 


IF YES 
sERROR NOT CNTL O 
s CONTINUE 
PUT ener. IN R5 
sPUT *‘FOUND'' IN R4 
:IS PROC ERROR SET? 
:BR IF YES 


sERROR, PROC ERROR NOT SET 
:SCOPE THIS TEST 


FRA EKEREKERERKKEKEEKKKKKK TEST 7 eee eee eee eeKKKKeknkkeneke 


: *PROCESSOR ERROR TEST 


:*IN FREE RUNNING MODE DO A RQI WITH AN ILLEGAL 10 CODE 
ich THAT A PROCESSOR ERROR OCCURS 


TARR AAEKCEKEKKKKKKKEKEEEKKKEKKKKKEKKEEKEKEKEKEKEKKEKEEEEKREKKKKKKKKKKKKKEK 


e 
RAKE KKEKKEKKEERERKEEKEKKEKEKEKEEKKKKEKEEEKEKKEEEKEKEKKEKKKKAKKKKKKKKK 


: TEST 7 

S17: SCOPE 
MOV #7 ,.$TSTNM 
MOV #TST10,NEXT 
MSTCLR 

; SSKIPT 10$ 
JSR PC ,BASELD 
BISB #46,(R1) 
TSTB (R1) 
BICB #40,(R1) 
CLR TEMP 

1$: TSTB 2(R1) 
BMI +14 
INC TEMP 
BNE 1$ 
ERROR ‘ 
BITB ¥BITO,2(R1) 

E 11$ 

ERROR 14 
BR 10$ 

11$: MOV #BIT9,RS 
MOV 6(R1) RS 
CMP R5,R4 
BEQ + 
ERROR 15 

10$: ; SCOPE 


; LOAD THE NO. OF THIS TEST 
POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
;MASTER CLEAR KMC11 


;LOAD KMC BASEMC ADDRESS 
;RQI AND ILLEGAL CODE 


; S 

CONTIN NOT CNTL O 
PUT Ri pS A " IN R5 
;PUT ‘FOUND’ IN R4 
:IS ie ERROR SET? 
:BR IF YES 


sERROR PROC eer NOT SET 
;SCOPE THIS TEST 


0066C2 
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2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 016056 
2716 016060 
2717 016066 
2718 

2719 016074 
2720 

2721 016076 
e722 016102 
27235 0161 
2724 016110 
e725 016112 
2726 016116 
2727 016120 
2728 016122 
2729 016126 
2730 016132 
2731 0161 
2732 016140 
2733 016144 
2734 016146 
2735 016150 
2736 016152 
2737 016154 
2738 016156 
2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 016156 
2753 016160 
2754 016166 
2755 

2756 016174 
2757 

2758 016176 
2759 016202 
2760 016206 
2761 016210 


000004 
012737 
012737 


104410 
004737 
004537 
021362 
000044 


000401 
104014 


000004 
012737 
012737 


07:54 PAGE 55 
O8-JUN-78 07:53 


000010 001202 
016156 001442 


022136 
022356 


022410 
000003 
011122 
000002 


011122 


000011 
016370 
020050 


020050 
022030 


001202 
001442 


FREE RUNNING TESTS 


PAGE : 


{RAKE KEEKKKKKKKKKKKKKKKKKKK TEST 12 cence eee keekeee 
:*HALF DUPLEX TEST 
>*IN FREE RUNNING MODE, SET HALF DUPLEX AND L U LOOP 
: cre A MESSAGE AND VERIFY THAT THERE ARE NO DONES 


SKK EEE KEKE KK KEKE KEKE KKK KEKE KEKE 


SUICIISISI IOI IOISISISISI II IOI OIC IOIIOIIIOIUI OI En hhh kt htt 


TST10: 


4$: 


5$: 
10$: 


: TEST 10 

SCOPE 

MOV #10,$TSTNM 
MOV #TST11,NEXT 
MSTCLR 

$SKIPT 10$ 

JSR PC,BASELH 
JSR RS,RFRELD 
RBUF 

44 

JSR R5,XFRELD 
TBUF 

44 

MOV #3,R3 

CLR MP 

TSTB 2(R1) 

BM! $ 

INC TEMP 

BNE 4$ 

DEC R3 

BNE 4$ 

BR 10$ 
ERROR 14 


: LOAD THE NO. OF THIS TEST 

: POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
;MASTER CLEAR KMC11 


sLOAD BASEMC AND HALF DUPLEX 


+ RECEIVE BUFFER 


stt 
— TRANSMIT BUFFER 


stt 
;LOAD DELAY COUNT 


: CLEAR DELAY | 

:IS DONE SET? 

:BR IF YES (ERROR) 
sINC DELA 


Y 
“BR IF DELAY NOT DONE 
:DEC DELAY COUNT 
;BR IF DELAY NOT DONE 


sERROR DONE WITH HALF-DUPLEX 


5 RARER REREREKEKEREREEKKKKK TEST 1] eee eee eee EKEEEEKEREKERE 
> *RESUME TEST 
¢*THIS TEST SENDS AND RECEIVES A BUFFER AND SHUTS DOWN THE 


THEN A MASTER CLEAR IS ISSUED AND A 


A BASEMC WITH RESUME 


:*KMC. 
:*BIT SET IS GIVEN, ANOTHER BUFFER IS SENT AND RECEIVED. 
: #DATA IS CHECKED. 


TREKKA KKKKERKKEKEREKEKKEKEEEKKEEEKEKEEEEREEREKEKCEEEEEEREEERERE 


: TEST 11 


e 
5 AEE KEKEEKEKKKKEKEEEKEEKEEKKEKEKEKRKKKEEEEEREEREREKKEREEEEEEAER 


TST11: 


sSSKIPT 
1$: 


SCOPE 
MOV 
MOV 


MSTCLR 


#11,$TSTNM 
#TST12,NEXT 


RESUME 
RESUME 


2$ 
PC ,,BASELD 


; Soa THE NO. OF THIS TEST 
POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
>MASTER CLEAR KMC11 


>CLR RESUME FLAG 
:FIRST OR SECOND PASS? 
“BR TR aes 


0067C2 





CZK 
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KCGA. 


5 
2816 
2817 


P11 


016214 


016366 
016370 
0163570 


016370 000004 
016372 012737 000012 001202 


000402 
004737 
004537 
021362 
000044 
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000002 
011122 
000002 


011122 


000207 
021314 
021362 
000044 


022442 
020050 


177777 020050 


000002 


FREE RUNNING TESTS 


BR 3$ 
2$ JSR PC,RESUM 
3$ JSR R5,RFRELD 
RBUF 
44 
JSR R5,XFRELD 
TBUF 
G4 
MOV #30 ,R3 
MOV #2 ,R0 
CLR EMP 
4$: TSTB 2(R1) 
BMI . +20 
INC TEMP 
BNE 4$ 
DEC R3 
BNE 4$ 
ERROR 14 
O$ 
BIC #207,2(R1) 
DEC RO 
BNE 4$ 
MOV #RBUF ,R3 


6$: MOVB (R2)+,R5 
MOVB (R3)+,R4 
CMPB R5.,R4 
BEQ 7$ 
ERROR 12 

7$: DEC RO 
BNE 
JSR PC, SHUTDOWN 
4 SUME 
BNE 
MOV #~-71 ,RESUME 
BR 


8$: 
10$: 7 SCOPE 


PAGE : 


; CONT INUE 


sBASEMC WITH RESUME BIT 
=_ BUFFER 


tt 
>XMIT BUFFER 
;BA 
:CC 
;DELAY COUNT 
sNEED TWO DONES 
;CLEAR DELAY ‘aioe 
:IS RDY O SET? 

IF SET 
= INC DELAY COUNTER 
BR IF NOT DONE DELAY 
Jy DELAY COUNT 


IF DELAY NOT DONE 
sERROR, RDY O NOT SET 
GET OUT 


“CLEAR DONE 
>TWO DONES YET? 
“BR IF NOT 


zADDRESS OF GOOD DATA 
ee OF RECEIVED DATA 


: COMPARE DATA 
:BR IF OK 
:DATA ERROR 

; DONE 


“BR IF DONE 
“SET FLAG FOR SECOND PASS 
CONT INUE 


:SCOPE THIS TEST 


[RRAKREKERKEKKKKKKKKKEKKKKRER TEST 12 eee eee eee eee eeeeKeekekker 
;*FREE RUNNING DATA TEST (INTERRUPT DRIVEN EXERCISER) 

;*THIS TEST REPEATEDLY QUEUES UP 
;*7 TRANSMIT BUFFER 


7? RECEIVE BUFFERS AND 





: is A BI ON 
iss CHECKED IN THIS TEST. THIS TEST USES THE TURNAROUND CONNECTOR 
*IF IT IS PRESENT, OTHERWISE LINE UNIT LOOP IS SET. 


STH RII RRR RRR RARER EERE RRR RR ERRRRRREE EERE ERE EEE 


2. TEST 12 


SOUS IISISIIIOIOIOIEIISIIDIIIOIIOIII IDIOT OI IMO iti ir itrs 


TST12: SCOPE 
MOV #12,$TSTNM 


; LOAD THE NO. OF THIS TEST 


0068C 2 








CZKCGA.P11 


016400 
016406 


PERERE 
s 


AOOOO 
BIR 
oO oO 


cm ee ce eed ee ee ee ee eed eed eed eed od — 2d od — 


os acdayeets ts: 


012737 
104410 
012737 

00 


012711 


012711 


001002 
052711 
022737 
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003662 


020110 
020110 


020222 
021506 
020240 
090005 
040000 
100000 
177777 
020050 
020256 
021302 
920240 
021306 
020256 


000100 
040000 


004000 
000005 


001442 


177776 


163412 
163404 


021306 


021504 


000002 
002050 


021304 


2$: 


3$: 


FREE RUNNING TESTS 


MOV 


MSTCLR 
$SKIPT 


#SEOP ,NEXT 


ENDEX1 
# 


R 

#177437 ,RO 

#1ISR,@KMRVEC 

RO, @KMRLVL 

#O1SR,@KMTVEC 
RO, aKMTLVL 


PAGE : 


; POINT TO THE START OF NEXT TEST. 
;R1_ CONTAINS BASE KMC11 ADDRESS 
;MASTER CLEAR KMC11 


sLOCK OUT INTERRUPTS 
>GET BR LEVEL 
>SHIFT RIGHT 4 TIMES 


sPUT BR LEVEL IN RO 


sLOAD INPUT VECTOR 
sLOAD LEVEL 

sLOAD OUTPUT VECTOR 
sLOAD LEVEL 


sINITIALIZE ALL BUFFER LISTS AND COUNT LISTS 


#104, TFLAG 
#XMITBA+2,RO 
#RBUF F ,RS 


FR 
R3, (RO) + 
#104,R3 
— TBA+20,R0 
#TBUFF , (RQ) + 
— TBA+36,R0 
#RCNTAB+2,R0 


TFLAG, (RO) + 
. ,RO 


> TFLAG CONTAINS COUNT 


:RO POINTS TO BA LIST 

:R3 CONTAINS BUFFER ADDRESS 
;LOAD BA LIST WITH REC BA 
sUPDATE BUFFER ADDRESS 
sEND OF REC BUFFERS? 

:NO LOAD NEXT ONE 

:LOAD BA LIST WITH XMIT BA 
sEND OF XMIT BUFFERS? 

:NO LOAD NEXT BUFFER 

:RO POINTS * COUNT LIST 
sLOAD COUNT OF 104 

END a COUNT LIST? 


5,FLAG ;LOOP COUNT 


wBiTie. (R1) 
#B81T15,STAT1 


.* 
#B1IT15,(R1) 
#-1 RO 

RESUME 
#RDNTAB,RS 
(R5)+ 
#RBUFFE,RS 
2 

#XCNTAB,R4 
TFLAG, (R4)+ 
#XCNTAB+16,R4 
4$ 

R? 
R4 
(R1) 


72 
#B81T6,2(R1) 
#B1T14,STAT1 


-*6 
#61T11,(R1) 
#5,FLAG 


sSET MASTER CLEAR 
; IOP? 


;BR IF NO 

sSET RUN ON IOP 

;RO IS INPUT DONE COUNTER 
;CLEAR RESUME FLAG 

;GET READY TO CLEAR ALL RECEIVE 


; BUFFERS 
- END OF BUFFER? 
IF NO 
:R4 POINTS TO XMIT COUNT LIST 
Done? XMIT CHAR COUNT 


F NO 
Ro is OUTPUT DONE COUNTER 
ZR4 te B AS INDEX IN OISR 


IF 
SET = UNIT LOOP 
sFIRST TIME? 


0069C2 
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—t 


29 
29 
291 
29 


BSBIVBVBBB 
SSSBIVIIBVBIS 
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060143 
000144 
011122 
000022 
177776 
000020 
017102 
000034 
017102 
000034 


017102 
020256 


001302 


000002 
020312 


000001 
900001 


021306 
000040 
021304 


000746 
021304 


011122 


016716 
001500 


016716 


001300 


021304 


021306 


FREE RUNNING TESTS 


4$: 


1$: 
2$: 


ENDEX: 
1$: 


ENDEX1: 


ENDEX2: 
SCAN]: D 


2$: 


1$ 
#143,(R1) 
3$ 
#144, (R1) 


#RDNTAB,RO 
(RO) +,R2 
R5 


R3 
R2,$TMP2 
(R2)+,R4 
RS,R4 

my 
13 
RS 
R3 

(RO) .R3 
6$ 


#2 ,R0 
ne 


#1 ,RO 
#B1TO,FLAG 
1$ 


TFLAG 
#40, TFLAG 
FLAG 
CLRTAB 
#146, (R1) 
FLAG 

1$ 

ENDEX1 
TEMP 

1$ 

SCAN 
STMP1 

2$ 

‘fase 
ENDEX1 


PAGE: 0070C 


;BR IF NOT 

7SET IEI,RQI,BASEMC | 

; CONTINUE 

:SET IEI, RQI, REC BA/CC 
;SET UP FOR DELAY COUNT 
;GET SET FOR DELAY 
s;ALLOW INTERRUPTS 

; INPUT DONE? 

;BR IF YES 


;BR IF NO 
:XMIT DONE FOR ALL MESSAGES? 
;BR IF YES 
;BR IF NO 
sREC DONE FOR ALL MESSAGES? 
;BR IF YES 
;BR IF NO 


:GET FIRST REC BUFFER 
sR2 POINTS TO BUFFER 
i. chee 


:R5 = COUN 

sSAVE ADDRESS FOR TYPEOUT 
:GET RECEIVE DATA 

sis 4 Sua 


:DATA ERROR 

sNEXT CHARACTER 

s INC COUNT 

sDONE YET? 

;BR IF NO 

;GET NEXT REC BUFFER 

;DONE YET? 

7BR IF NO 

sSET RO TO 1 

; CHANGE wo FOR NEXT LOOP 

; CONTINUE 

; SUBTRACT 40 FRON XMIT COUNT 
COUNT 


:GO DO IT AGAIN 
;SHUT DOWN KMC 

sHAS INTERRUPT OCCURED? 
[ALL OK GET OUT 

:;SCOPE THIS TEST 
;DECREMENT DELAY COUNTER 
: F ZERO 
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000017 
020050 
000002 
021430 
010000 
000006 
020050 
000040 
020050 
000041 


021430 
000006 


000006 
000010 


020052 
020220 
020052 
020220 
000040 


000041 
000017 
000010 





000004 
000006 


000004 


000004 
000006 


000004 
000006 


FREE RUNNING TESTS 
; INPUT INTERRUPT SERVICE ROUTINE 


IISR: 


13$: 
12$: 


14$: 
8$: 


7$: 


1$: 


2$: 


3$: 


6$: 


PAGE : 


#17,R0 sPROC. ERROR DONE? 
12$ ;BR IF YES 
a :IS ng By RESUME INTERRUPT 
#B1T1,(R1) “NTL OR BASEMC? 
13$ IF CNTL I 
#BASEMC ,4(R1) -LOAD BASEMC ADDRESS 
#B1T12,6(R1) *WITH RESUME BIT SET 
12$ ; CONTINUE 
6(R1) sSELECT FULL DUPLEX 
RESUME ; CLEAR a ° LAG 
#40,(R1) :CLEAR RQI 
(R1) :1S RLI GONE? 
.~ ;BR IF NO 
RESUME ;BASEMC OR CNTL I? 
14$ sBR IF IT WAS CNTL I 
#41,(R1) : ASK FOR CNTL I 
>RE TURN 
(R1) ; CLEAR BSEL 0 
TURN 

RO “FIRST TIME HERE? 
7$ ;LOAD BASEMC IF MINUS 
#BASEMC ,4(R1) 3;SET UP BASEMC ADDRESS 
6(R1) ;CLEAR COUNT 

= CONT INUE 
1$ sCNTL I FULL DUPLEX IF 0 
6(R1) 7SELECT FULL DUPLEX 
3$ : CONTINUE 
#81T3.RO :XMIT? 
2$ sBR IF YES 


RO : 
RECBA(RO),4(R1) ;LOAD 
RCNTAB(RO) .6(R1);LOAD COUNT 


;CLEAR CARRY 
RO :GET RO BACK 
3$ > CONTINUE 
;CLEAR CARRY 
RO =MAKE IT EVEN 
XMITBA(RO),4(R1);LOAD XMIT BUFFER 
RCNTAB(RO),6(R1):;LOAD COUNT 
;CLEAR CARRY 
0 sPUT IT BACK 
#40,(R1) :CLEAR RQI 
1) sWAIT FOR 
72 :RDI TO GO AWAY 
RO : INC COUNT 
6$ :IF O ASK FOR CNITL I 
#41,(R1) ;ASK FOR CNTL I 
;RETURN 
#17,R0 : DONE YET? 
4$ *BR IF YES 
#B1IT3,RO > XMIT 
S$ “BR Fs YES 
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2987 


3S 
So 


152711 
000002 
152711 
000002 
152711 
000002 


032761 


005200 
012711 


012711 
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000044 
000040 
000046 


000001 
0215304 
021304 
001000 


000017 
001000 


040000 
100000 
000000 
177777 


000100 
040000 


004000 
000743 
000004 
000006 
017076 
000004 


020110 
020111 
020110 
000004 
020240 


000002 
000016 


000002 


000006 


000006 


020050 
000002 
002050 


001302 
001304 


000002 
000004 
000004 


001302 


000006 


5$: 
4$: 


OISR: 


9$: 


11$: 


1$: 


4$: 
5$: 


FREE RUNNING TESTS 


#44 ,(R1) 
#40,(R1) 
#46,(R1) 


PAGE : 


;ASK FOR REC BA/CC 
sRETUR 


: N 
sASK FOR XMIT BA/CC 


“FORCE PROC. ERROR 
RETURN 


INTERRUPT SERVICE ROUTINE 


#B1T0,2(R1) 
FLAG 

9$ 

FLAG 
#B1T9,6(R1) 
10$ 

th 
#B1T9,6(R1) 
11$ 

RO 
#B1T14,(R1) 
#BIT15,STAT1 
+14 
#B1T15,(R1) 
#0 


74 
#~1 ,RESUME 
— 
#B1T6,2(R1) 


welTié, 2 STATI 


#B1T11,(R1) 
#143, (R1) 


4(R1) ,STMP2 
aes 


(SP)+, (SP)+ 
ENDEX1 
#B1T2,2(R1) 
#TBUFF.4(R1) 
#TBUFF+1,4(R1) 
4$ 


#TBUFF ,R5 
raph de 


R5 ; 
XCNTAB(R5) ,6(R1); 
6$ 


#2 ,R5 
#16,R5 
5$ 


-IS THIS AN ERROR? 
:BR IF NO 
‘a Hg & SHUT DOWN INTERRUPT? 


>YES MAKE FLAG tS lt 
sSHUT DOWN BIT SET? 

7YES ALL IS OK 

: RE SUME INTERRUPT? 


;BR I 

; PROC. ? BIT SET? 
‘BUM. COUNTER (TO 20) 
sMASTER CLEAR DEVICE 
KMC OR KMC? 

BR IF KMC 

3;SET RUN ON KMC 
:DELAY ON KMC 


sSET RESUME FLAG 
RUN SET? 


:SET LINE UNIT LOOP 
:ASK FOR PORT (BASEMC REQUEST) 


;SAVE FOR ERROR TYPEOUT 
:SAVE FOR ERROR TYPEOUT 
ERROR 


:BR YES 

:1S XMIT BA CORRECT? 
:BR IF 

:IS XMIT BA CORRECT? 


0072C2 
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020240 


000002 
000016 


020312 
020312 
000002 


000004 


000006 


020256 
020256 
000002 


002 
005 


012 
015 


022 
025 


032 
035 


042 
045 


052 
055 


6$: 


10$: 


2$: 


3$: 
7$: 


8$: 


FREE RUNNING TESTS 


: 0 


PAGE : 


ERROR 3 >XMIT COUNT ERROR 
MOV pS git ,XDNTAB(R2) : STORE XMIT DONE BA 
ADD 3; INC INDEX 
MOV ecRTD ,XDNTAB(R2) : STORE XMIT DONE CC 
ADD s INC INDEX 
BICB #207, 2(R1) ;CLEAR RDO 
RTI :RETURN 
CLRB (R1) :CLEAR SELO 
CLRB 2(R1) * CLEAR SEL2 
RT] RE TURN 
MOV #2,R5 SET UP RS AS INDEX 
CMP RECBA(RS5).4(R1) ; COMPARE WITH LIST OF CORRECT BA'S 
BEQ 3$ BR IF OK? 
ADD #2,R5 ; INCREMENT R5 
CMP #20,R5 > END Cr LIST? 
BNE 2$+4 “BR IF NO 
ERROR 4 sREC BA ERROR 
CLR R5 =R5 IS INDEX 
CMP XCNTAB(R5),6(R1): Pg FOR CORRECT REC COUNT 
BEQ 8$ YES 
ADD #2,R5 STNCREMENT R5 
CMP #16,R5 = END OF LIST? 
BNE 7$ : F NOT 
ERROR 5 ;REC COUNT ERROR 
MOV igh -RDNTAB(R4) ;STORE REC BA 
ADD INC INDEX 
MOV ecRI) -RDNTAB(R4) : STORE REC DONE CC 
ADD #2 ,R4 ; INC INDEX 
BICB #207, ses aa = CLEAR RDO 
RY “RETURN 
sBUFFERS 
: 6K 17 sREC & XMIT BA LIST 
; TRANSMIT DATA 
0.1 2,324.5.6.7 


10,11,12.13.14.15.16,17 


20,21.22,25,24,25,26,27 


30,31,32,33,34,35,36,37 


40.41,42,43,44.45,46,47 


50,51,52,53,54,55,56,57 
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3098 020166 056 057 

3099 psoty 060 061 062 -BYTE 60,61,62,63,64,65,66,67 

3100 02017 063 065 

3101 020176 066 067 

3106 020 070 071 072 BYTE 70,71,72,73.,74.75,76,77 

3103 020203 073 074 075 

3104 020206 076 077 

3105 020210 100 101 102 -BYTE 100,101,102,103,104,105,106,107 

3106 020213 103 104 105 

3182 020216 106 107 

3109 020220 000010 RCNTAB: .BLKW 10 ;RECEIVE COUNT TABLE 
a119 020240 000007 XCNTAB: .BLKW 7 ; TRANSMIT COUNT TABLE 
3112 020256 000016 RDNTAB: .BLKW 16 ;RECEIVE DONE TABLE (BA/CC) 
ar47 020312 000016 XDNTAB: .BLKW 16 ;XMIT DONE TABLE (BA/CC) 
3115 020346 RBUF F : sRECEIVER BUFFERS 
3116 020346 000104 RBUFF1: BLKB 104 

3117 020452 000104 RBUFF2: .BLKB 104 

3118 020556 000104 RBUFF3: . 104 

3119 O 000104 RBUF F 4 104 

3120 020766 0001% RBUFF5 -BLKB 104 

3121 021072 000104 RBUFF6: . 104 

3122 021176 000104 RBUFF7: .BLKB 104 

$157 21302 000000 RBUFFE: 0 SEND OF RECEIVER BUFFERS 
3125 

3126 

3127 ;BUFFER AREA 

3128 {Smo neson= 

316 

31 021304 000000 FLAG: 0O 

3131 000000 TFLAG: 0 

3132 021310 000000 RFLAG: O 

3133 021312 000044 TCOUNT: 44 

3134 021314 041101 042103 643105 T -ASCII/ABCDEF GHI JKLMNOPOQRS TUVWXY70123456789/ 
3335 021322 07 045111 046113 

3136 021330 047115 050117 051121 

3137 021336 052123 053125 054127 

3138 021344 055131 030460 031462 

3139 021352 032464 033466 034470 

3140 EVEN 

3141 021360 000044 RCOUNT: 44 

3142 021362 021430 RBUF : -=. +46 

3143 EVEN 

dpe: 021430 022030 BASEMC: .=.+256. 

3146 

3147 ; SUBROUTINES 

3148 [eter ern 

3149 

3150 

3151 022030 BASELD: 

3152 ; THIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS 
3153 ;AND PUTS KMC INTO FULL=DUPLEX MODE 
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3154 
31 


5 

3157 
3158 
3159 
3160 


—+ 
RA 


Ln 
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Co 
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Sense 


5 


a38 


022136 


022142 


022244 


012711 


012711 


012711 


012711 
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040000 


100000 
000000 


004000 
000043 
021430 
000006 
000040 
000041 


000006 
000040 


040000 
190000 
000000 
004000 
000043 


021430 
000006 
000040 


000041 


002000 
000040 


000004 


000004 


000006 


SUBROUTINES 


1$: 


2s: 


64$: 


1$: 


2$: 


3$: 


64$: 


65$: 


MOV #B1T14,(R1) 
BIT #B1T15,STAT1 


. +6 
MOV #BIT15,(R1) 
#0 


BNE 74 
TST (R1) 
BPL 1$ 


BIS #B1T11,(R1) 
BISB #43,(R1) 
(R1) 


BPL 2$ 

MOV #BASEMC .4(R1) 
CLR 6(R1) 
BICB #40,(R1) 
TSTB (R1) 

BMI 3$ 

BIS6 #41,(R1) 
TSTB (R1) 

BPL 

CLR 6(R1) 
BICB #40, (R1) 
TSTB (R1) 

BMI 65$ 

RTS PC 


PAGE : 


sMASTER CLEAR 
; CRAM? 


:BR IF 


F NO 
:1F CRAM SET RUN 


»DELAY 
“BR IF NOT a7 DELAY 
31S RUN SET? 
“BR IF NO 
“SET LU LOOP 
;BASEMC REQUEST 
sRDY I SET? 
;BR IF NO 
;LOAD BASEMC ADDRESS 
;CLEAR CC 
;CLEAR RQI 
sRDY I CLEAR? 
-BR IF NO 


:BR I 

sASK FOR CNTL I 
sWAIT FOR RDI 
:BR IF NOT SETY 
sSET FULL DUPLEX 
-CLEAR RQI 

:RDI UP? 

;BR IF YES 

E TURN 


; THIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS 
;AND PUTS KMC INTO HALF-DUPLEX MODE 


MGV #B1T14,(R1) 
BIT #BIT15,STAT1 


.+ 

MOV #BIT15,(R1) 
#0 

BNE 4 

TST (R1) 

BPL 1$ 

BIS on YP a 
#45,(R1) 


B1SB 
TSTB 
BPL e$ 
MOV #BASEMC ,4(R1) 
CLR 6(R1) 
BICB #40, (R1) 
TSTB (R1) 

J 3$ 
BISB #41,(R1) 
TSTB (R1) 
BPL 64$ 
MOV #B81T10,6(R1) 
BICB #40, (R1) 
TSTB (R1) 
BM] 65$ 
RTS PC 


sMASTER CLEAR 
; CRAM? 


-BR IF NO 

iF CRAM SET RUN 

> DELAY 

><BR IF NOT DONE DELAY 
:1S RUN SET? 

-BR I 


; RDI 
;BR_IF NOT SETY 
;SET HALF DUPLEX 
-CLEAR RQI 

RDI UP? 
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RRRRRERNRRNN 


RROD 


mnn 
MEWN—OVONAUISWAR-O 


022246 


022246 


022252 


022554 
022556 


022556 
022362 


022410 


022410 


36 
022440 


3 3 O>— 
wa RS lhe tg hy 

“J 

os 


ed ed ed end od od 
SANS 


es Ww 
S88 5558 
BHTTLIS 
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040000 
100000 
000000 
004000 
000043 


021430 
010000 
000040 


000041 


000006 
000040 


000044 
000004 
000006 
000040 


000040 


000004 
000006 
000040 


000004 
000006 


SUBROUTINES 


RE SUM 


1$: 


2$: 


3$: 


64$: 


65$: 


RFRELD: 


1$: 


2$: 


XFRELD: 


1$: 


2s: 


PAGE : 


THIS SUBROUTINE LOADS THE KMC WITH A BASEMC ADDRESS 
sWITH RESUME BIT SET AND PUTS KMC INTO FULL=DUPLEX MODE 


MOV #BIT14,(R1) sMASTER CLEAR 
BIT #BIT15S,STAT1 > CRAM? 

BEQ . +6 ;BR IF NO 

MOV #B1T15,(R1) ;1F CRAM SET RUN 
INCB #0 ;DELAY 

BNE 74 ;BR IF NOT DONE DELAY 
TST (R1) 71S RUN SET? 

BPL 1$ ;BR IF NO 

BIS #BIT11,(R1) ;SET LU LOOP 
BISB #43, (R1) ;BASEM.C REQUEST 
TSTB (R1) sRDY I SET? 

BPL 2$ ;BR IF NO 

MOV #BASEMC ,4(R1) ;LOAD BASEMC ADDRESS 
MOV #BIT12,6(R1) ;SET RESUME BIT 
BICB #40, (R1) sCLEAR RQI 

TSTB (R1) sRDY I CLEAR? 
BMI 3$ ;BR IF NO 

BISB #41,(R1) sASK FOR CNTL I 
TSTB (R1) sWAIT FOR RDI 
BPL ; IF NOT SETY 
CLR 6(R1) ;SET FULL DUPLEX 
BICB #40, (R1) ;CLEAR RQI 

TSTB (R1) :RDI UP? 

BMI 65$ ;BR IF YES 

RTS PC : RETURN 


> THIS SUBROUTINE LOADS THE KMC WITH A RECEIVE BA/CC 
BISB #44,(R1) sREC BA/CC REQUEST 


TSTB (R17) sRDY I SET 

BPL 1$ :BR IF NO 

MOV (R5)+,4(R1) ;LOAD REC BA 
MOV (R5)+,6(R1) sLOAD REC CC 
BICB #40,(R1) sCLEAR RQI 

TSTB (R71) 71S RDY I CLEAR 
BM] 2$ :BR IF NO 

RTS R5 :RETURN 


; THIS SUBROUTINE LOADS THE KMC WITH A TRANSMIT BA/CC 
B1SB #40,(R1) >MMIT BA/CC REQUEST 
) sRDY I SET? 


TSTB (R1 ; SE 

BPL 1$ . NO 

MOV (R5)+,4(R1) ai XMIT BA 

MOV (R5)+,6(R1) ;LOAD XMIT CC 

BICB #40,(R1) ;CLEAR RQ] 

TSTB (R1) :IS RDY I CLEAR 
I 2$ :BR IF NO 

RTS R5 :RETURN 
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022442 


022442 
022450 


022606 
022612 


022614 


012702 
032737 
001402 
012702 
000207 
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000207 
000046 


000040 
000002 


040000 
140000 
022614 
000004 
000006 
002000 
022000 
002000 


022614 
000004 
002900 
000006 
011054 


002000 
040000 


023650 
000002 


027654 


“00002 


002054 


PAGE : 
SUBROUT INES 
SHUTDOWN: 
;THIS SUBROUTINE FORCES THE KMC TO UPDATE THE BASEMC TABLE 
BIC #207,2(R1) :CLEAR ANY OUTPUT DONES 
BISB #46,(R1) :ASK FOR ILLEGAL REQUEST 
1$: TSTB (R1) =RDI SET? 
BPL 1$ ;BR IF NO 
BICB #40.(R1) “CLEAR RQI 
2$: TSTB —s-_-2(R1) :OUTPUT DONE SET? 
BPL 2$ 7;BR IF NOT 
RTS PC RETURN 
LDRVRF: MOV #81714, (R1) “MASTER CLEAR KMC-11. 
BIC #81T15'BIT14, (R13 :AND SHUT IT DOWN. 
CLR R :CLEAR UPC POINTER 
JSR PC, SETMAP :SET MICRO-CODE POINTER IN R2. 
3$: CLR (Ri) :START WITH THE CLEAN WORLD. 
MOV RO,4(R1) :LOAD CRAM ADDRESS. 
MOV (R2)+ 6(R1) :LOAD INSTRUCTION WORD. 
MOV #B1T10,(R SET ROM 0. 
MOV *BIT13!03 710, (R1 5° 1TE IT 
INC RO ATE ip. POINTER. 
CMP #2000,R0 “OVER FLOW? 
BGT 3$ “BR IF NO. 
VERFY: JSR PC ,SETMAP :SET MICRO-CODE POINTER IN R2. 
CLR RO -SET UPC POINTER. 
6$: CLR (R1) :START WITH THE CLEAN WORLD. 
MOV RO,4(R1) :LOAD CRAM ADDRESS. 
MOV #B1T10,(R1) :SET ROM O. 
CMP 6(R1)_ (R2)+4 =CHECK IF RIGHT? 
BEQ of >BR IF GOOD. 
TYPE /MLDER :LOADING ERROR. 
9$: INC -BUMP UPC POINTER. 
CMP #2000.R0 :IS IT DONE? 
BGT :BR IF NO. 
MOV #B1T14,(R1) *MASTER CLEAR KMC-11. 
RTS PC *RETURN. 
SETMAP: MOV #LOMAP ,R2 :LOAD ADDRESS OF LOW SPEED. 
BIT #B1T1,STAT3 :1S IT HIGH SPEED? 
BEQ $ :BR IF NO. 
MOV #HIMAP ,R2 =LOAD HIGH SPEED ADDRESS. 
3$: RTS PC -RETURN TO CALLER. 
LOMAP : :LOW SPEED (REMOTE) MICRO-CODE. 
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5313 027654 -=27654 


3314 
$2 027654 HIMAP : SHIGH SPEED (LOCAL) MICRO-CODE. 
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3317 
033654 052200 040522 051516 EM2: -ASCIZ <200>/TRANSMIT BA ERROR/ 
3677 200 051124 047101 EMS: -ASCIZ <200>/TRANSMIT COUNT ERROR/ 

033725 200 042522 042503 EM4: -ASCIZ <200>/RECEIVE BA ERROR/ 
033747 200 0642522 042503 EMS: -ASCIZ <200>/RECEIVE COUNT ERROR/ 
033774 051200 041505 044505 EM11: eASCIZ <200>/RECEIVE DATA ERROR/ 
034020 043200 042522 020105 EM1i2:  .ASCIZ <200>/FREE RUNNING ERROR/ 
034044 041600 047117 051124 EM13: -ASCIZ <200>/CONTROL OUT ERROR/ 
034067 200 0467111 062524 EM14: ~ASCIZ <200>/INTERNAL DDCMP ERROR COUNTS NON ZERO/ 
034135 200 054105 042520 DH1: -ASCIZ <200>/EXPECTED FOUND ADDRESS/ 
034167 200 054105 042520 DH2: eASCIZ <200>/EXPECTED FOUND/ 
034210 020200 042523 032114 DH3: eASCIZ <200>/ SEL4 SEL6/ 
034231 200 040502 042523 DH4: eASCIZ <200>/BASEMC+3 THRU BASEMC+12 / 
034263 200 046513 0270503 ye eASCIZ <200>/KMC11 IS HUNG/ 
034302 000003 DT1 3 
034304 006 004 -BYTE 6,4 
034306 001266 SREG2 
034310 006 004 -BYTE 6,4 
034312 001272 SREGS 
034314 004 002 -BYTE 4,2 
0343516 001262 $SREGO 
034320 000003 DT2: 3 
034322 006 004 -BYTE 6,4 
034324 001274 SREGS 
034526 006 004 -BYTE 6.4 
034330 001272 SREG4 
034332 004 002 -BYTE 4,2 
034334 001266 SREG2 
034336 000003 DT3: 
034340 006 004 -BYTE 6,4 
034342 001274 $SREGS 
034344 006 004 -BYTE 6,4 
034346 001272 $SREG4 
034350 004 002 BYTE 4,2 
034552 001302 STMP2 
034354 000002 DT4: 2 
034356 003 007 wmvte: 3.7 
034360 001274 SREGS 
034362 003 002 BYTE 3,2 
034364 001272 SREG4 
034366 000002 DT5: 2 
034370 006 004 -BYTE 6,4 
034372 001274 $SREGS 
034374 006 002 -BYTE 6,2 
034376 001272 SREG4 
034400 000003 DT6: 3 
034402 003 010 BYTE 3,10 
034404 001274 $SREGS 
9344 003 004 -BYTE 3,4 
034410 001272 SREGS 
034412 004 002 BYTE 4,2 
034414 021304 FLAG 
034416 3 DT7: 


O8-JUN-78 07:54 PAGE 68 

CZ2KCGA.P11 O08-JUN-78 07:53 
034420 003 010 
034422 001274 
034424 003 004 
Oe7 8s 001272 
0344 002 
Oaf7ar 001266 
0344 
034436 007 
034440 001274 
034442 004 
034444 001272 
034446 002 
034450 001302 
034452 
034454 004 
034456 001302 
034460 002 
034462 001304 
034464 10 
034466 003 602 
034470 001300 
034472 003 002 
034474 021434 
034476 003 002 
034500 001302 
034502 003 002 
034504 021436 
034506 002 
034510 001304 
034512 002 
034514 021440 
034516 002 
034520 001306 
034522 002 
034524 021442 
Oerese 
0345 004 
034532 001274 

534 002 

034536 001272 


SUBROUTINES 


D110: 


DT11: 


DT12: 


D113: 


CORMAX : 


. END 


-BYTE 3,10 
SREGS 
-BYTE 3,4 
SREG4S 
-BYTE 4,2 
oe 
-BYTE 3,7 
SREGS 
-BYTE 3,4 
SREG4 
-BYTE 6,2 
athe 
-BYTE 6,4 
$TMP2 
BYTE 6,2 
STMP3 
10 
-BYTE 3,2 
STMP1 
BYTE 
BASEMC +4 
YTE ‘ 
MP2 
YTE 3.2 
BASEMC +6 
i: SF 
3 
YTE 3 
BASEMC +10 
7 “3, 
4 
-BYTE 3,2 
—— 2 
BYTE 6,4 
SREGS 
BY TE 6 £ 2 
$SREG4 


PAGE : 


0080C2 
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ABASE = 000000 AUSTRT 003126 CONN 010665 ERCTOS 002330 
Dwi = 000000 AUSWR = 000000 CONTAB 003330 ERCT06 002334 
ACDW2 = 000000 -S 012124 CONVRT= 104416 ERCTO7? 002340 
ACPUOP= 000000 AVECT1= 000000 CORMAX 034540 ERCT10 002344 
ADDWO = 000000 AVECT2= CR = 000015 ERCT11 002350 
ADDW1 = SE 013756 CREAM 001502 ERCT12 002354 
ADDW10= OO0000 BASELD 022030 CRLF = 000200 ERCT13 002360 
ADDW11= 000000 BASELH 022136 CSR 010357 ERCT14 002364 
ADDW12= 000000 BASEMC 021430 CSRMAP 012126 ERCT15 002370 
ADDW13= 000000 BINWRD 006406 CYCLE 011474 ERCT16 002374 
ADDW14= 000000 BITO = 000001 DATABP 006760 ERCT17 002400 
ADDW15= 000000 BITOO = 000001 DATACL= 104413 E 003244 
ADDW2 = 000000 BITO1 = 000002 DATAHD 006746 E G 6734 
ADDW3 = 000000 BITO2 = 4 DDISP = 177570 ERRPC 003322 
ADDW4 = 000000 BITO3 = 000010 DELAY = 104411 ERRVEC= 0 
ADDW5S = 000000 BITO4 = 000020 DEVTAS 003342 ERTABO 007106 
ADDW6 = 000000 BITOS = 000040 DH 034135 T = 000205 
ADDW7 = 000000 BITO6 = 100 DH2 034167 EXITER 007042 
ADDWB = 000000 BITO7 = 000200 DH3 034210 FLAG 021304 
ADDWI = 000000 BITO8 = 00 DH4 034231 FLOAT 003156 
ADEVCT= 000000 BITO9 = 001000 DHS 034263 FY 3202 
ADEVM = 000000 BIT1 = 2 DISPLA 001242 HALTS 
006053 BIT10 = 002000 DISPRE 0001 HILIM QO 
BIT11 = 000 DSWR = 177570 HIMAP 027654 
BIT12 = 010000 DT1 034302 HT = 
BIT13 = 020000 DT10 034434 IISR 017132 
BIT14 = 040000 DT11 034452 INCHAR 011434 
BIT15 = 100000 DT12 034464 INIFLG 00 
BitZg = DT13 034526 INLP1 005762 
BITS = 000010 DT2 034320 INPUT = 104415 
BIT4 = 000020 DT3 034536 INTTY 013506 
BITS = 0 DT4 034354 IOTVEC= (00020 
BIT6 = 000100 DTS 34 KMACT 1470 
BIT7 = 000200 DT6 KMCM 11044 
BITS = 000400 DT7 034416 KMC 
BIT9 = 001 DZDMH = 0 KMCRO1 002110 
010625 EMTVEC= 0000 KMCRO2 002120 
BPTVEC= 4 033774 KMCROS 002130 
BRLVL 013472 EM12 034020 KMCRO4 002140 
354 EM13 03404 KMCROS 002150 
CHRCNT EM14 03406 KMCR 
CKSWR 011226 EM2 03365 RO? 002170 
CKSWR1 011302 EM3 033677 KMCR10 002200 
CKSWR2 011314 EM4 033725 KMCR11 002210 
CKSWR3 011320 EMS 033747 KMCR12 002220 
CKSWR4 011324 ENDEX 017 KMCR13 002230 
CKSWRS 011430 ENDEX1 01/7076 KMCR14 002240 
APTSPO= 000100 CLKX 001452 ENDEX2 0171 KMcR15 002250 
APT.SI 013540 CLRTAB 016566 ERCTOO 002304 KMCR16 002260 
ASWREG= 000000 CNERR 011023 ERCTO1 002310 KMCR17 002270 
ATESTN= 000000 CNT.MA 002302 ERCTO2 002314 KMCSR 002066 
AUDONE 003354 CNVRT = 104417 ERCTO3 002320 KMCSRH 002070 266 
AUNIT = 000000 CONERR 010756 ERCTO04 002324 KMCTL 002072 KMS317 002276 
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KMTLVL O02064 PACT13 002356 RFRELD 022356 SW8 = 000400 x3 = 000103 
KMTVEC 002062 PACT14 002362 ROMCLK= 104412 W9 = 001000 x4 = 000104 
KM.END 2300 PACT15 002366 RUN 001500 TBITVE= 000014 x5 = 000105 
KM. MAP O51 90 PACT16 002372 R6 '=%000006 TBUF 021314 X6 = 106 
LDRVRF 022474 PACT17 002376 R7 =%000007 TBUFF 020110 x7 = 000107 
LF = 000012 PARBIT= 040000 SAVACT 001474 TCOUNT 021312 ZERO 001462 
010567 PERF OR= 37 SAVNUM 001476 TEMP 011122 SAPTHD 002034 
LOBITS 320 S 001460 TFLAG 021306 SATYC 004716 
LOCK 001444 Q = 177772 SAVSP 001456 TIMER = 104414 SATY1 004672 
LOKFLG 001510 PIRQVE= 40 SAVO5 = 104406 TKVEC = 000060 SATY3 004700 
LOL IM 0 = 012600 SCAN 016716 TLAST = 016370 SATY4 004710 
LOMAP 23650 POP1SP= 00 SCAN1 017102 TPVEC = 000064 SAUTOB 001234 
001454 POP2SP= 022626 sc 016730 TRAPVE= 000034 $BASE 001372 
MASTEK 010011 10416 SCOP1 = 104405 TRTIVEC= 000014 SBDADR 001222 
xX 007741 PRIRTY 013760 SETMAP 022614 TST1 013762 SBDDAT 001226 
MDATA 011164 = SHUTDO 022442 TST1O 016056 $CDW1 001376 
MEMLIM 0014 PRI = SOFTSW 011466 TST11 #8016156 $CDW2 001400 
MEPASS 007614 PR2 = 000100 SPACNT= 00640 TST12 016370 SCHARC 
MERRPC 01 PR3 = 140 STACK = 0012 TST2 015006 SCMTAG 001200 
MERRX 007766 PRG = 200 STAT 001450 TST3 015200 $CM1 = 
MERR2 007641 PR5 = 000240 STAT? 00 TST4 015336 $CM2 = 000014 
MERR3S 007 PR6 = 000300 STAT2 00 TSTS 015464 $CM3 = 000006 
MILK 0015 PR7 = 340 STATS 002054 TST6 015622 $CM4 = 000005 
MLDER 011054 PS = 177776 STKLMT= 177774 TST7 015740 SCNTLG 005530 
MLOCK 007712 PSW = 177776 STRTSW 00144 TTST 004146 SCNTLU 005525 
MNNE Wi 010013 PUSHRO= 010046 sv05 006074 TWOSYN= 010 $CPUOP 
010455 PUSH1S= 005746 SWFLG 011432 TYPDAT 006750 SCRAP = 177777 
MPASSX 007755 PUSH2S= 024646 SWR 001240 TYPE = 104401 SCRLF 001313 
MPFAIL 007556 PWRVEC= 24 SWREG 000176 TYPMSG 00665 $D 001402 
36 QV.FLG SWwO. = 1 VEC 010375 SDDW1 001404 
MRESET= F 0213562 SWOO = 000001 VECMAP 013222 $DDW10 001426 
MSTCLR= 104410 RBUF F 34 SWOT = 000002 VECTR 013754 SDDW11 001430 
MTITLE RBUFFE 021302 SWO2 = VERFY 022544 SDDW12 001432 
MTSTN 007777 RBUF F 1 SWO3 = 000010 WHAT 005764 SDDW13 001434 
Cx 7747 RBUFF2 020452 WO4 = 000020 WHERE 00605 SDDW14 
NEXT 1442 RBUFF3 020556 SWO5 = WHIC 013214 SDDW15 001440 
NOACT 010725 RBUF F4 WO6 = 000100 WRDCNT 00640 SDDW2 
NODE V 3240 RBUFF5 020766 SWO7 = 000200 O.F 0067 SDDWS 001410 
10317 RBUFF6 021072 SWO8 = 000400 00653 $D 001412 
OISR 017422 RBUFF7 021176 SWO9 = 001000 XCNTAB 020240 SDDWS 001414 
3220 RCNTAB 020220 SWi = 2 XCSR 0041 007416 
001464 RCOUNT 021360 SW10 = 002000 XDNTAB 020312 SDDW7 001420 
PACTOO 002302 RDCHR = 104402 SWi1 = XERR 004126 001422 
PACTO1 306 RDLIN = 1044 SWi2 = 010000 XFRELD 022410 SDDW9 001424 
PACTO2 002312 RDNTAB 020256 SW13 = 020000 XHEAD 010073 SDEVCT 001 
PACTO3S 002316 RDOCT = 1 SW14 = 040000 XMITBA 020052 SDE 001374 
PACTO4 002322 RECBA 20052 SW15 = 100000 XPASS 004120 SDOAGN 
PACTOS 326 RESREG 0O SwW2 = XSTATQ 011074 SENDAD 004070 
PACTO6 002332 RES 022246 SWw5 = 0 XTSTIN 007114 SENDCT 004054 
PACTO7? 002336 ES 020050 SW4 = 000020 XVEC 00411 SENV 001336 
PACT10 002342 RESVEC= 000010 SW5 = 006040 x0 = 0C0110 SENVM 001337 
PACT11 002346 RESOS = 104407 SW6 = 000100 x1 = 000101 SEOP 
PACT12 002352 RFLAG 021310 SW7 = =: 000200 X2 = 000102 SEOPCT 004046 


O8-JUN-78 07:54 PAGE 72 
08-JUN-78 07:53 


CZKCGA.P11 


SERFLG 
SE 


~5=S 
2 = © 
MRMIAQ Uw 


MmMMONNr— 
EVAN 
foun 


sssgsss 
BREET 


geass 


000 


ERRORS DETECTED: 0 
DSKZ:CZKCGA,DSKZ:CZKCGA/SOL=CZKCGA.MAC , CZKCGA.P11/EQ:DZDMH 
TIME: 29 18 .7 SECONDS 


RUN-TI 18. 
RUN-TIME RATIO: 
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